На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.
На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы