Дана последовательность чисел оканчивающихся ** 0 найти сумму и произведение этих...

0 голосов
63 просмотров

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


Информатика (28 баллов) | 63 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var a,s,p:integer;
begin
s:=0;
p:=1;
write('Введите число: ');
readln(a);
while a<>0 do
begin
s:=s+a;
p:=p*a;
write('Введите число: ');
readln(a)
end;
writeln('Сумма чисел в последовательности: ',s);
writeln('Произведение чисел в последовательности: ',p)
end.

(3.9k баллов)