Задачи от 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]

Ну что поехали дальше.......

{program N_14;
var
   i,A,code:integer;
   n:longint;
   nn,aa:string;
begin
   write('Input n -> ');readln(n);
   write('Input A -> ');readln(a);
   i:=1;
   str(n,nn);str(a,aa);
   while i<=length(nn) do
   begin
      if nn[i]=aa then begin delete(nn,i,1);i:=i-1;end;
      i:=i+1;
   end;
   val(nn,n,code);
   writeln(n);
   readln;
end. }

{program N_15;
var
   i,k,m,n:integer;
begin
   write('Input n -> ');readln(n);
   k:=0;m:=0;
   for i:=1 to n-1 do
      if n mod i=0 then
      begin
       k:=k+1;
       if i mod 2 =0 then m:=m+1;
      end;
   writeln('Delit -> ',k);
   writeln('Delit Chet -> ',m);
   readln;
end.}

{program N_16;
var
   i,a,b,c:integer;
begin
   for a:=1 to 9 do
      for b:=0 to 9 do
       for c:=0 to 9 do
       if (a in [1..20]) and (b in [1..20]) and (c in [1..20]) then
          if 2*a*b=2*c then writeln(a,' ',b,' ',c);
   readln;
end.  }

{program N_18;
const n=10;
var
   i:integer;
   a:array[1..n] of integer;
begin
   for i:=1 to n do begin a[i]:=random(9)+1;write(a[i],'  '); end;
   writeln;
   for i:=1 to n do
   begin
      if a[i] mod 2<>0 then a[i]:=a[i]*2;
      write(a[i],'  ');
   end;
   readln;
end.}

{program N_19;
var
   i,n,k:integer;
   a:array[1..100] of integer;
begin
   write('Input n  (n<=100) -> ');readln(n);
   k:=0;
   for i:=1 to n do
   begin
      write('-> ');
      readln(a[i]);
      if a[i]=n then k:=k+1;
   end;
   write(k);
   readln;
end. }

{program N_20;
const n=10;
var
   i,min,S:integer;
   a:array[1..n] of integer;
begin
   S:=0;
   for i:=1 to n do
   begin
      a[i]:=random(10)-5;
      write(a[i],'  ');
   end;
   min:=32767;
   for i:=1 to n do
   begin
      if a[i]>0 then
       if a[i]<min then min:=a[i];
      if a[i]<0 then S:=S+a[i];
   end;
   writeln;
   writeln('Min pol -> ',min);
   writeln('Summ otriz -> ',S);
   readln;
end.}

{program N_21
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,S,k:integer;
begin
   ClrScr;
   S:=0; k:=0;
   for i:=1 to n do
   begin
      a[i]:=random(10)+1;
      write('  ',a[i]);
      S:=S+a[i];
   end;
   for i:=1 to n-1 do
      if a[i]<>a[n] then k:=k+1;
   writeln;
   writeln('Sred arifmet: ',(S/n):0:2);
   writeln('Otl ot Poslednego: ',k);
   readln;
end. }

{program N_22;
const n=10;
var
    i,k:integer;
    a:array[1..n] of real;
begin
   k:=0;
   for i:=1 to n do
   begin
      write('-> ');
      readln(a[i]);
   end;
   for i:=1 to n do
      if a[i]=i then k:=k+1;
   write('Otvet: ',k);
   readln;
end. }

{program N_23;
const n=10;
var
   a:array[1..n] of real;
   i,k:integer;
   max:real;
begin
   for i:=1 to n do
   begin
      a[i]:=random(9)+1;
      write(a[i]:3 :1,' ');
   end;
   for i:=1 to n do
       if a[i]>max then begin max:=a[i];k:=i; end;
   for i:=1 to k-1 do
      if i mod 2=0 then a[i]:=a[i]*max;
   writeln;
   for i:=1 to n do write(a[i]:3 :1,' ');
   readln;
end.}

{program N_24;
const n=10;
var
   a:array[1..n] of real;
   i,k:integer;
   r:real;
begin
   k:=0;
   write('Input r -> ');readln( r );
   for i:=1 to n do
   begin
      write('-> ');
      readln(a[i]);
   end;
   for i:=1 to n do
      if a[i]=r then begin k:=i;break; end;
   if k=0 then writeln('Net!')
        else writeln('N: ',k);
   readln;
end. }

{program N_25;
const n=10;
var
   a:array[1..n] of real;
   i,k:integer;
   r:real;
begin
   k:=0;
   write('Input r -> ');readln( r );
   for i:=1 to n do
   begin
      write('-> ');
      readln(a[i]);
   end;
   for i:=n downto 1 do
      if a[i]=r then begin k:=i;break;end;
   if k=0 then writeln('Net!')
        else writeln('N: ',k);
   readln;
end.}

{program N_26;
const n=10;
var
   a:array[1..n] of integer;
   b:array[1..n] of real;
   i,S,Sa:integer;
begin
   S:=0;
   for i:=1 to n do
   begin
      a[i]:=random(9)+1;
      write(a[i],' ');
      S:=S+a[i];
   end;
   writeln;
   for i:=1 to n do
   begin
      b[i]:=(S-a[i])/n-1;
      write(b[i]:1 :1,' ');
   end;
   readln;
end. }

{program N_27;
const n=10;
var
   a:array[1..n] of integer;
   i,k:integer;
begin
   for i:=1 to n do
   begin
      write('-> ');
      readln(a[i]);
   end;
   writeln;
   for i:=1 to n do
     if (a[i]<0) and (a[i] mod 5=2) then begin k:=i;break; end;
   write(k);
   readln;
end.}

{program N_28;
const n=40;
var
   a:array[1..n] of integer;
   i,S:integer;
begin
   S:=0;
   randomize;
   for i:=1 to n do
   begin
      a[i]:=random(100)-50;
      write(a[i],' ');
      if (a[i]>0) and (a[i]<10) then S:=S+a[i];
   end;
   writeln;
   for i:=1 to n do
      if (a[i] mod 3=0) and (a[i] mod 5=0) then write(i,' ');
   writeln;
   write('Sred arifmet -> ',(S/n):1 :1);
   readln;
end.}