На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.

Ответы:

Фёдор Иванов

04-04-2017 01:42

var a,b,k,count:integer; begin readln (a,b); for k:=a to b do begin if (k mod 2 =0) and (k mod 4=0) then count:=count+1; end; writeln (count); end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ЯРОСЛАВ БАБИЧЕВ

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.» от пользователя ЯРОСЛАВ БАБИЧЕВ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!