СРОЧНО!!!!!!
суммировать квадраты нечётных чисел по возрастанию до тех пор, пока их сумма не будет больше 10000. вывести количество шагов программы
restIess:
Язык программирования указывайте
Ответы
Ответ дал:
1
var
count,sum,n:integer;
begin
count:=1;
sum:=1;
n:=1;
writeln('count: ',count,', ',n,'^2: ',sqr(n),', sum: ',sum);
repeat
n:=n+2;
sum:=sum+sqr(n);
inc(count);
writeln('count: ',count,', ',n,'^2: ',sqr(n),', sum: ',sum);
until sum>10000;
writeln('sum: ',sum,', count: ',count);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад