Количество вводимы чисел водится с клавиатуры. Найти произведение чисел, которые вводятся в цикле. Записать программу.​

balandinradmir balandinradmir    2   20.02.2020 19:27    0

Ответы
kamilanurganbay kamilanurganbay  11.10.2020 10:32

ВВОДИМ ЧИСЛА ЧЕРЕЗ  ПРОБЕЛ ИЛИ ENTER

program z1v1;

var s,i,n,b:integer;

begin;

b:=0;

writeln('введите количество чисел');

readln(n);

writeln('введите ' ,n, ' чисел');

for i:=1 to n do

begin

read(b);

s:=s+b;

b:=0;

end;

writeln('произведение чисел равно ', s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы