Предмет: Информатика, автор: Dinislam99

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

Ответы

Автор ответа: 4emzan9t
0
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;
Похожие вопросы
Предмет: Литература, автор: Аноним