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

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

Question

Владимира

12 января, 02:42

+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работа на паскале