Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.Ввести 12 чисел. Определить сколько чисел кратно 5
10-11 класс
|
50HA50
29 сент. 2016 г., 1:47:40 (7 лет назад)
Superbizon
29 сент. 2016 г., 4:38:30 (7 лет назад)
№1
var a, b, k, i:integer;
begin
k:=0;
readln(a);
for i:=1 to 9 do begin
readln(b);
if a=b then k:=k+1;
end;
writeln('Ответ:', k);
end.
№2
var a, k, i:integer;
begin
k:=0;
for i:=1 to 12 do begin
readln(a);
if a mod 5=0 then k:=k+1;
end;
writeln('Ответ:', k);
end.
Ответить
Другие вопросы из категории
Пользователь вводит текст со скоростью 90 знаков в минуту.Какое количество информации будет содержать текст,который он набирал 20 минут(использовался
компьютерный язык).
По нижеприведенным данным построить структурно-секторную диаграмму
Распределение помощи странам СНГ.
Страны Помощь (млн. экю.)
ЕС 49908
США 7274
Япония 2378
Прочие 10200
ИТОГО
Читайте также
Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных.
То есть всего должно быть 3 вывода. Помогите пожалуйста!!!
Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них
было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!
Вы находитесь на странице вопроса "Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.Ввести 12 чисел. Определить сколько чисел кратно 5", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.