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

Question

Василий

1 февраля, 02:20

+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;