Написать программу

4. Компьютер перебирает четные числа до тех пор, пока сума их квадратов не превысит S. Чему равна сумма квадратов?

Подсказка:

Начальное значение переменной цикла - 2. Шаг изменения - 2 (перебираем четные числа).

Считаем сумму квадратов до тех пор пока она меньше или равна S.

Вывод на экран:

Результат:

s =

Тест 1:

Исходные данные:

s = 24

Результат:

s = 56

Тест 2:

Исходные данные:

s = 85

Результат:

s = 120

Question

Ипполита

11 февраля, 22:46

+3

Ответы (1)

Знаете ответ на вопрос?

Иннокентий · Answer 1

Program pr_1;

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.