Написать программу 4. компьютер перебирает четные числа до тех пор, пока сума их квадратов не превысит s. чему равна сумма квадратов? подсказка: начальное значение переменной цикла – 2. шаг изменения – 2 (перебираем четные числа). считаем сумму квадратов до тех пор пока она меньше или равна s. вывод на экран : результат: s = тест 1: исходные данные: s = 24 результат: s =56 тест 2: исходные данные: s = 85 результат: s =120
var i,s,sq:integer;
begin
readln(s);
i:=2;
while sq<=s do
begin
sq:=sq+sqr(i);
i:=i+2;
end;
writeln('sq=',sq);
end.