Вычислите сумму квадратов вводимых чисел, Числа вводятся пока не будет нажат 0

работа на паскале

Question

Декабриныч

23 февраля, 11:33

+5

Ответы (2)

Знаешь ответ?

Прасковья · Answer 1

Var

A, S:real;

Begin

Repeat

Read (A);

S:=S+A*A;

Until A = 0;

WriteLn ('S = ', S);

End.

Самбила · Answer 2

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;

Вычислите сумму квадратов вводимых чисел, Числа вводятся пока не будет нажат 0работа на паскале