Momath
5 год назад
Пожалуйста посчитайте написать программу на pascalABCВычислить сумму квадратов вводимых чисел. числа вводятся, пока не будет нажат ноль.
ОТВЕТЫ
Aki Kauko
Oct 24, 2020
Program n1;
var a: integer;
sum: real;
begin
sum:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a*a;
readln(a);
end;
write(sum);
end.
var a: integer;
sum: real;
begin
sum:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a*a;
readln(a);
end;
write(sum);
end.
458
Смежные вопросы:
