Предмет: Информатика,
автор: Аника17
решить задачу "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных натуральных чисел на отрезке а и б , включая концы отрезка
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: География,
автор: AP41K
Предмет: Английский язык,
автор: timka367
Предмет: Математика,
автор: ftucbjhghjtifidj
Предмет: Геометрия,
автор: ruslan4ik