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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,i,s:integer; begin writeln('введите 2 числа'); readln(a); readln(b); s:=0; if ab then for i:=b to a do begin if i mod 2 = 0 then s:=s+1; end; writeln(s) end.