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

Question

Информатика

Гоша

14 мая, 22:10

Решить задачу "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 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.