Составить программу вычисления количества натуральных нечётных чисел сумма квад
Составить программу вычисления количества натуральных нечётных чисел сумма квадратов которых не превысит 1000.( на Паскале)
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var
a, s, n: integer;
begin
while s < 1000 do
begin
if a mod 2 <> 0 then begin
s := s + sqr(a);
n := n + 1;
end;
a := a + 1;
end;
writeln(n-1);
end.
Не нашли ответ?
Похожие вопросы