«Циклы с неизвестным числом повторений» - Pascal ABC

Формулировка задачи:

Сколько натуральных чисел, кратных 5,нужно перемножить, чтобы полученное произведение превысило 5^12?

Решение задачи: ««Циклы с неизвестным числом повторений»»

textual
                            Листинг программы 
                        

                            const n = Power(5,12);
begin
  var otv: real:= 1;
  var counter: integer:= 0;
  while otv <= n do
    begin
      counter += 1;
      otv *= counter;
      Writeln(otv, ' ', counter);
    end;
  Writeln(otv, ' ', n, ' ', counter);
end.
                        

Оцени полезность:

7 голосов , оценка 3.714 из 5

Похожие ответы