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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.