Less2014

30.01.2022

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Информатика

Ответить

Ответы

Кольцова

30.01.2022

var

i,a,pr:integer;

begin

pr:=1;

for i:=1 to 10 do

begin

readln(a);

if a mod 5 = 0 then

pr:=pr*a;

end;

writeln(pr);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

▲

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

якщо кількість повторень заздалегідь відома то вибирають цикл..? 1) цикл з лічильником2) команду розгалуження 3) цикл з передумовою

Сколько символов можно закодировать с двоичного кода, используя кодовые слова различной длины — от 1 до 5 знаков?

Мне нужно чтобы зарегистрировался!Кто может

Что такое описание и концепция программы? В чем их разница? Информатика. Теор. часть приложения

Напишите программу на языке Scratch который кот проходит к точке 0, 100 и потом обратно в точке помагитеее

Разрешающая экрана в графическом режиме… а)пикселей по вертикалиб)пикселей по горизонтали и вертикалив)пикселей по горизонталиг)пикселей по диагонали

Разгадайте ребус портфель, стакан с водой, лошадь (слово из 9 букв) предпоследняя буква И

Решите задачу: Даны целые a, b, c. Вычесли произведение и сумму этих чисел. В каждом полученном числе выдели последнюю цифру и сложи их ТОЛЬКО ЭТО УРОК ИНФОРМАТИКА.

Тбайт =? Мбайт = 1073741824 байт; 512 Гбайт = 2? Мбайт = 2? Кбайт; 80 Гбайт = (2?+ 2?) Кбайт = (2?+ 2?) бит.

Конспект Компьютерные вирусы и антивирусные программы

5. Укажите которым невозможно создать таблицу в MS Access: 1) С конструктора 2) С мастера 3) Создание таблицы путем ввода данных 4) С команды Таблица – Вставить таблицу

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

якщо кількість повторень заздалегідь відома то вибирають цикл..? 1) цикл з лічильником2) команду розгалуження 3) цикл з передумовою​

Сколько символов можно закодировать с двоичного кода, используя кодовые слова различной длины — от 1 до 5 знаков?

Мне нужно чтобы зарегистрировался!Кто может

Что такое описание и концепция программы? В чем их разница? Информатика. Теор. часть приложения

Напишите программу на языке Scratch который кот проходит к точке 0, 100 и потом обратно в точке помагитеее​

Разрешающая экрана в графическом режиме… а)пикселей по вертикалиб)пикселей по горизонтали и вертикалив)пикселей по горизонталиг)пикселей по диагонали​

Разгадайте ребус портфель, стакан с водой, лошадь (слово из 9 букв) предпоследняя буква И

Решите задачу: Даны целые a, b, c. Вычесли произведение и сумму этих чисел. В каждом полученном числе выдели последнюю цифру и сложи их ТОЛЬКО ЭТО УРОК ИНФОРМАТИКА.​

Тбайт =? Мбайт = 1073741824 байт; 512 Гбайт = 2? Мбайт = 2? Кбайт; 80 Гбайт = (2?+ 2?) Кбайт = (2?+ 2?) бит.

Конспект Компьютерные вирусы и антивирусные программы ​

5. Укажите которым невозможно создать таблицу в MS Access: 1) С конструктора 2) С мастера 3) Создание таблицы путем ввода данных 4) С команды Таблица – Вставить таблицу

якщо кількість повторень заздалегідь відома то вибирають цикл..? 1) цикл з лічильником2) команду розгалуження 3) цикл з передумовою

Напишите программу на языке Scratch который кот проходит к точке 0, 100 и потом обратно в точке помагитеее

Разрешающая экрана в графическом режиме… а)пикселей по вертикалиб)пикселей по горизонтали и вертикалив)пикселей по горизонталиг)пикселей по диагонали

Решите задачу: Даны целые a, b, c. Вычесли произведение и сумму этих чисел. В каждом полученном числе выдели последнюю цифру и сложи их ТОЛЬКО ЭТО УРОК ИНФОРМАТИКА.

Конспект Компьютерные вирусы и антивирусные программы