Решить задачу "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных натуральных чисел на отрезке а и б, включая концы отрезка

Question

Информатика

Аврелиан

7 января, 23:28

Решить задачу "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных натуральных чисел на отрезке а и б, включая концы отрезка

+5

Ответы (1)

Знаете ответ?

Ионич · Answer 1

var a, b, i, s:integer;

begin

writeln ('введите 2 числа') ;

readln (a) ; readln (b) ;

s:=0;

if a
for i:=a to b do

begin

if i mod 2 = 0 then

s:=s+1;

end;

if a>b then

for i:=b to a do

begin

if i mod 2 = 0 then

s:=s+1;

end;

writeln (s)

end.