Учеба и наука
Олимпиада по информатике - вопрос №149200
Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 7.
ноябрь 23, 2011 г.
-
Всего ответов: 1
-
var a,b:integer;
begin
readln(a);
b:=0;
while a<>0 do
begin
if (a mod 2 =0) and (a mod 7 =0) then
inc(b);
readln(a);
end;
writeln(b);
end.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.