Регистрация
Slavaevdok2017
23.05.2023 20:44
Информатика
Есть ответ 👍

Решить в pascalabc . вот какая должна получится программа: "пока пользователь вводит с клавиатуры положительные числа, умножайте их.

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

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

Вадим321566787654
Вадим321566787654
4,5(56 оценок)
Var   n, mult, count: integer; begin   n : = 1;   mult : = 1;   while n > 0 do   begin       inc(count);       mult : = mult * n;       read(n);   end;   writeln('количество чисел: ', count - 1);   writeln('произведение чисел: ', mult); end.
alenkashkiteva
alenkashkiteva
4,4(63 оценок)

ответ: восемнадцати.

Популярно: Информатика