Помогите составить блок схему и программу для вычисления суммы квадратов чисел до тех пор пока квадрат очередного числа не превысит 50

Question

Виолетка

29 июля, 20:13

+1

Ответы (1)

Знаете ответ?

Лия · Answer 1

Var a, x, s: integer;

begin

a:=0;

while a<50 do begin

readln (x) ;

a:=x*x;

s:=s+a;

end;

writeln (s) ;

readln;

end;