Предмет: Информатика,
автор: gabbi123321
На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: География,
автор: asanovamajra
Предмет: Информатика,
автор: vsavsa112
Предмет: Қазақ тiлi,
автор: altayevadamilya
Предмет: Химия,
автор: Ренатусик
Предмет: Химия,
автор: Annush