Задачи от Romario Опции

[Clane]

Дано равносторонний треугольник со стороной a. Найти, длину стороны равнобольшого ему квадрата. Вычислить для таких значений:

a) a=7;
b) a=13
c) a=54

Написать программу, которая определяет, можно ли построить треугольник со сторонами a, b, і c.
Написать программу для определения квартала года по порядковому номеру месяца.
Найти количество чисел кратных 7 от 7 до 7777 включительно.

a) Используя цикл for;
b) Используя цикл while;
c) Используя цикл repeat

Найти среднее арифметическое всех целых положительных чисел меньше числа n включительно.
Вычислить для

a) n=5;
b) n=20;
c) n=156

Написать программу нахождения суммы чисел:
S=10+22+32+…+n2, если

a) n=7;
b) n=10;
c) n=12

Найти остаток от деления натурального числа a на натуральное число b путём последовательного вычитания от числа a числа b.

Натуральное число называется идеальным, если оно равно суме всех своих делителей, кроме самого числа. Проверить, будет ли число n идеальным.

Сообщение отредактировано: volvo - 21.01.2005 12:08

[Ivs]

Вместо рожиц следует читать "8 )"

{program N_1;
var
   i1,i2,i3,A:integer;
begin 
   ClrScr;
   write('Input A -> ');readln(A);
   for i1:=1 to 9 do
      for i2:=0 to 9 do
       for i3:=0 to 9 do
          if (i1<>i2) and (i1<>i3) and (i2<>i3) then
             if (i1+i2+i3)=A  then write(i1,i2,i3,' ');
   readln;
end.  }

{program N_2;
var
   i1,i2,i3,N:integer;
begin
   write('Input N -> ');readln(N);
   for i1:=1 to 9 do
      for i2:=0 to 9 do
       for i3:=0 to 9 do
          if i1+i2+i3=N then write(i1,i2,i3,' ');
   readln;
end.}

{program N_3;
var
   i,k,m
   integer;
begin
   for i:=10 to 99 do
   begin
      k:=i;
      m:=k mod 10;
      k:=k div 10;
      if (m+k)+sqr(m+k)=i then write(i,' ');
   end;
   readln;
end.}

{program N_4;
var
   i,k:longint;
begin
   for i:=100 to 999 do
      if (sqr(i) mod 1000) =i then write(i,' ');
   readln;
end. }

{program N_5;
var
   i:integer;
begin
   for i:=1000 to 9999 do
      if (i mod 133=125) and (i mod 134=111) then write(i,' ');
   readln;
end.}

{program N_6;
var
   i,a,b,S:integer;
begin
   write('Input A -> ');readln(a);
   write('Input B -> ');readln(B);
   S:=0;
   for i:=a to b do
      if i mod 4 =0 then S:=S+i;
   write('Summa : ',S);
   readln;
end.}

{program N_7;
var
   i:integer;
begin
   for i:=21 to 99 do
      if (i mod 3=0) and (i mod 10=2) or (i mod 10=4) or (i mod 10=8) then write(i,' ');
   readln;
end.}

{program N_8;
var
    i:integer;
begin
   for i:=100 to 999 do
      if (i mod 100)*7=i then begin write(i,' ');break; end;
   readln;
end.  }

{program N_9;
var
   i1,i2,i3,k:integer;
begin
   for i1:=1 to 9 do
      for i2:=0 to 9 do
       for i3:=0 to 9 do
       begin
          k:=i1*100+i2*10+i3;
          if ((i1+i2+i3) mod 7=0) and (k mod 7=0) then write(i1,i2,i3,' ');
       end;
   readln;
end. }

{program N_10;
var
   i1,i2,i3,i4:integer;
begin
    for i1:=1 to 9 do
       for i2:=0 to 9 do
        for i3:=0 to 9 do
           for i4:=0 to 9 do
           if (i1<>i2) and (i1<>i3) and (i1<>i4) and (i2<>i3) and (i2<>i4) and (i3<>i4) then write(i1,i2,i3,i4,' ');
   readln;
end.  }

{program N_11;
var
   i1,i2,q:integer;
begin
   write('Input q -> ');readln(q);
   for i1:=1 to 9 do
      for i2:= 0 to 9 do
       if ((i1*10+i2) mod q=0) and (i1+i2>0) and (i1+i2<18) then write(i1,i2,' ');
   readln;
end.}

{program N_12;
var
   code:integer;
   n,i:longint;
   s:string;
begin
   write('Input n -> ');readln(n);
   str(n,s);
   i:=1;
   while i<=length(s) do
   begin
      if (s[i]='0') or (s[i]='5') then begin delete(s,i,1);i:=i-1; end;
      i:=i+1;
   end;
   val(s,n,code);
   write(n);
   readln;
end.}

{program N_13;
var
   i,n,s:integer;
begin
   write('Input n -> ');readln(n);
   S:=0;
   for i:=1 to n-1 do
      if (n mod i=0) then begin write(i,' '); S:=S+i;end;
   writeln;
   write('Summa=',S);
   readln;
end.}