Cnt3_1 Ввести n чисел, подсчитать количество четных чисел больших 10.
5-9 класс
|
Sanimay1
04 янв. 2016 г., 14:57:52 (8 лет назад)
Galina3105
04 янв. 2016 г., 15:40:43 (8 лет назад)
var n,x,i,s:integer;
begin
write('Введите n: ');
readln(n);
writeln('Вводите числа: ');
for i:=1 to n do
begin
readln(x);
if (x>10) and (x mod 2=0) then s:=s+1;
end;
writeln('Ответ: ',s)
end.
Mappe2010
04 янв. 2016 г., 19:15:48 (8 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
Помогите, пожалуйста, очень надо!
Компьютер⇒человек
а) источник: ?
б) приемник: ?
в) канал связи: ?
г) носитель информации: ?
Отопительная система⇒человек
а) источник: ?
б) приемник: ?
в)канал связи: ?
г) носитель информации: ?
Читайте также
1)В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
Вы находитесь на странице вопроса "Cnt3_1 Ввести n чисел, подсчитать количество четных чисел больших 10.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.