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

lolkekcheburek2281 lolkekcheburek2281    2   28.02.2019 19:20    3

Ответы
МихаилД МихаилД  23.05.2020 17:21

var a,b,i,s:integer;

begin

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

readln(a); readln(b);

s:=0;

if a<b then

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика