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

И еще, Romario, 12 задачу лучше наверное переписАть,
а то я там строки использовал, вобщем, не очень удачно как-то:

program N_12;
var
  a,b,c,d:longint;
begin
  readln(a);
  b:=0;d:=1;
  while a>0 do
  begin
                   c:=a mod 10;
                   if (c<>0) and (c<>5) then
     begin
                 b:=b+c*d;
                 d:=d*10;
     end;
     a:=a div 10;
  end;
  writeln(B);
  readln;
end.