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

Question

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

Comments

на каком языке?

---

паскаль

---

блин

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.