Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел (Нужно написать программу в Паскале

Question

Информатика

Эсен

15 ноября, 01:54

Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел (Нужно написать программу в Паскале

+1

Ответы (1)

Знаете ответ на вопрос?

Оридион · Answer 1

Var a, s, p:integer;

begin

s:=0;

p:=1;

write ('Введите число: ') ;

readln (a) ;

while a0 do

begin

s:=s+a;

p:=p*a;

write ('Введите число: ') ;

readln (a)

end;

writeln ('Сумма чисел в последовательности: ', s) ;

writeln ('Произведение чисел в последовательности: ', p)

end.