Написать программу, которая выводит сумму квадратов пяти целых положительных чисел

Числа (как положительные, так и отрицательные) вводятся с клавиатуры

Question

Сигизмунд

5 августа, 18:13

+1

Ответы (1)

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

Римлянин · Answer 1

Var n, k, t: integer;

begin

k:=0;

t:=0;

repeat

read (n) ;

if n>0 then

begin

k:=k+1;

t:=t+sqr (n) ;

end;

until

k>4;

writeln (t) ;

end.

Написать программу, которая выводит сумму квадратов пяти целых положительных чиселЧисла (как положительные, так и отрицательные) вводятся с клавиатуры