tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить алгоритм и
Составить алгоритм и написать программу на паскале нахождения произведения только из n-вводимых с клавиатуры целых чисел
Kseniasis040906
1 23.08.2019 17:40
0
Ответы
elinaaak
05.10.2020 15:02
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
DellXT
23.06.2019 11:30
Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел...
Still227
23.06.2019 11:30
Сколько килобайт памяти займёт файл сказки а.с. пушкина , если текст набирался в 8-битной кодировке кои-8 и занял 128 страниц, на каждой странице 60 строк по 32 символа...
980sveta
23.06.2019 11:30
Вчём разница между в прямом режиме и в программном режиме?...
kukovofiwi342
08.09.2019 16:50
Какая буква встречается 10 раз в тексте шалтай болтай? скажите...
Liza32572
08.09.2019 16:50
Инфарматика.для приготовление компота маме нужна 4 литра воды как маме решить если у неё есть 5 литровая кострюля и 3 литровая банка и водопроводный кран...
pinelike
08.09.2019 16:50
Коле нужно с электронных таблиц построить таблицу двузначных чисел от 10 до 49 для этого сначала в диапазоне b1: k1 он записал числа от 0 до 9,и в диапазоне a2: a5 он...
Sobakopes
08.09.2019 16:50
Составить решение паскаль вводится 2 угла треугольника определить существует ли такой треугольник и если существует вывести 3 угла...
буря4
08.09.2019 16:50
Сколько килобайтов составит сообщение из 2048 символов 16 символьного алфавита?...
negatiff95
08.09.2019 16:50
Что такое универсальный ? подробный ответ...
Муся000
08.09.2019 16:50
Команды соответствующие клавиатурные комбинации ctrl + f...
Популярные вопросы
2. расставьте, где это необходимо, знаки препинания в предложениях....
1
Водном из дореволюционных номеров знаменитого журнала «вокруг света»...
3
Взяти інтерв ю в федька з твору федько халамидник автор володимир...
2
Внутри угла а взята точка m. через точку м проведены прямые m и n....
1
Яке значення має історія україни для історії європи? ...
3
Втреугольнике авс проведены высоты а1а и в1в. биссектрисы внешних...
3
Этому региону дал название известный мореплаватель, который исследовал...
1
Наименьшее общее кратное чисел 11,8,15, 9,13 ❤️...
1
Бічна сторона трапеції дорівнює менший основі доведіть що прилеглий...
1
6.в акмр стороны км = 1 см, кр = 2 см, lp = 30°. найдите zm....
2
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.