Lipton141
Опубликовано 6 лет назад по предмету Информатика от Lipton141


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

  1. Ответ
    Ответ дан elenaklon
    var a,s,p:integer;begins:=0;p:=1;write('Введите число: ');readln(a);while a<>0 dobegins:=s+a;p:=p*a;write('Введите число: ');readln(a)end;writeln('Сумма чисел в последовательности: ',s);writeln('Произведение чисел в последовательности: ',p)end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц