Вычислите сумму квадратов вводимых чисел, Числа вводятся пока не будет нажат 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,S:real;
Begin
Repeat
Read(A);
S:=S+A*A;
Until A = 0;
WriteLn('S = ',S);
End.
Не нашли ответ?
Похожие вопросы