Найти количество чётных чисел в отрезке от A доB Паскаль срочноо

Найти количество чётных чисел в отрезке от A доB Паскаль срочноо
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var a,b,k,i: integer; begin readln(a,b); k:=0; for i:=a to b do if i mod 2=0 then k:=k+1; writeln(k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы