Вычислите сумму квадратов вводимых чисел, Числа вводятся пока не будет нажат 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы