Составьте программу, запрашивающую у пользователя k целых чисел и вычисляющую произведение положительных. пример работы: окно вывода сколько чисел обработать? 5 введите число 2 введите число введите число введите число введите число произведение положительных чисел из 5 составляет 24 а то я уже сижу рыдать начинаю (через паскаль надо

262

310

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

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

kr2804ilyagmailcom

Информатика

4,8(91 оценок)

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var n: =readinteger('сколько чисел обработать? '); var s: =1; loop n do begin var k: =readinteger('введите число'); if k> 0 then s*=k end; writeln('произведение положительных чисел из ',n,' составляет ',s) end. пример сколько чисел обработать? 5 введите число 7 введите число -4 введите число 0 введите число 9 введите число -2 произведение положительных чисел из 5 составляет 63