сервис вопросов и ответовНаписать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.Программа выводит кол-во чисел кратных 5 и её произведение.
10-11 класс|
|
Timoshaaa
13 нояб. 2013 г., 22:30:57 (10 лет назад)
кимп
13 нояб. 2013 г., 23:21:56 (10 лет назад)
var
a : array [1..10] of integer;
count, prod, i : integer;
begin
count := 0;
prod := 1;
for i := 1 to 10 do read (a[i]);
for i := 1 to 10 do
if a[i] mod 5 = 0 then
begin
count := count + 1;
prod := prod * a[i];
end;
if count > 1 then write (count, ' ', prod) else write ('таких чисел нет');
end.
Ответить
Другие вопросы из категории
Переведите число из десятичной системы счисления в двоичную
549=
840=
Пожалуйста очень надо!!!
Читайте также
Требовалось написать программу,при выполнении которой с клавиатуры вводится натуральное число,не превосходящее 10^8, и выводится его первая цифра.Ученик
написал такую программу:
var n:longint;
begin
read(n);
while n>10 do
begin
n:=n mod 10
end;
write(n);
end.
1)Напишите,что выведет эта программа при вводе числа 1984.
2)Приведите пример числа,при вводе которого программа выдаст верный ответ.
3)Найдите в программе все ошибки.
НАПИСАТЬ ПРОГРАММУ!ПОМОГИТЕ!!!
while и repeat
1)напечатать все отрицательные числа из диапазона от а до б, с шагом h.
2)Напишите программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10^9, и выводится сумма четных цифр этого числа и 0, если таких цифр в числе нет
Пожалуста!!!!!!!!!!!!!!!!!!!!!!ОЧ срочно!!!!!! Написать программу на паскале, которая вводит
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
Вы находитесь на странице вопроса "Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.Программа выводит кол-во чисел кратных 5 и её произведение.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.