Предмет: Информатика,
автор: Aminim
Найти количество чётных чисел в отрезке от A доB Паскаль срочноо
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Физика,
автор: katenka22077
Предмет: Алгебра,
автор: dtruhmanova
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: Аннет11