Предмет: Информатика,
автор: Dinislam99
Помогите составить блок схему и программу для вычисления суммы квадратов чисел до тех пор пока квадрат очередного числа не превысит 50
Ответы
Автор ответа:
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;
begin
a:=0;
while a<50 do begin
readln(x);
a:=x*x;
s:=s+a;
end;
writeln(s);
readln;
end;
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: История,
автор: beibarszhukenov
Предмет: История,
автор: Arina12822
Предмет: Алгебра,
автор: coocoo99
Предмет: Химия,
автор: crystald2