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

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

Question

Димуха

7 августа, 15:50

+4

Ответы (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работа на паскале