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


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

  1. Ответ
    Ответ дан AnonimusPro
    //PascalABC.NET//Версия 3.3.5, сборка 1650beginvar (sum,p):=(0,1.0);ReadSeqIntegerWhile(t->t<>0).ForEach(f->begin sum+=f; p:=p*f; end);write('сумма: ',sum,'; произведение: ',p);end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

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