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

Question

Василий

30 сентября, 18:01

+4

Ответы (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;