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

287

415

Посмотреть ответы 2

Ответы на вопрос:

scrqppy2000

Информатика

4,7(15 оценок)

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.