вычислите сумму квадратов вводимых чисел, Числа вводятся пока не будет нажат 0
работа на паскале
Ответы
Ответ дал:
0
uses crt;
var a, k: Integer;
begin
while a <> 0 do
begin
readln(a);
if a <> 0 then inc(k, sqr(a));
end;
writeln(k);
end;
var a, k: Integer;
begin
while a <> 0 do
begin
readln(a);
if a <> 0 then inc(k, sqr(a));
end;
writeln(k);
end;
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад