Grasida
5 год назад
Найти количество чётныхчисел в отрезке от A доB Паскаль срочноо
ОТВЕТЫ
Martyn
Oct 24, 2020
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.
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.
279
Смежные вопросы:
