Написать задачу на языке PascalABC По одну сторону улицы находятся дома с нечетными номерами (1,3,5,..), по другую сторону- четными (2,4,6,..). Дом 1 находится напротив дома 2, дом 3- напротив дома 4 и тд. До соседнего дома нужно идти вдоль по улице одну минуту, неважно, с какой стороны улицы он находится (то есть от дома 1 нужно идти одну минуту как до дома 3, так и до дома 4). До дома, стоящего напротив, идти не нужно. Человек вышел на улицу из дома А и должен дойти до дома В. Определите, сколько минут ему нужно идти вдоль по улице. Программа получает на вход два различных целых положительных числа А и В, не превосходящие 2•10(в 9 степени), - номера домов. Программа должна вывести одно число-искомое количестао минут. Пример входных и выходных данных : Ввод : 1 , 8 Вывод: 3
program WalkingTime; var A, B, time: integer; begin writeln('Введите номер первого дома: '); readln(A); writeln('Введите номер второго дома: '); readln(B); if (A mod 2 = 0) and (B mod 2 = 0) then time := abs(A - B) div 2 else if (A mod 2 = 1) and (B mod 2 = 1) then time := abs(A - B) div 2 else time := (abs(A - B) + 1) div 2; writeln('Человеку нужно пройти ', time, ' минут'); end.
var
A, B, time: integer;
begin
writeln('Введите номер первого дома: ');
readln(A);
writeln('Введите номер второго дома: ');
readln(B);
if (A mod 2 = 0) and (B mod 2 = 0) then
time := abs(A - B) div 2
else if (A mod 2 = 1) and (B mod 2 = 1) then
time := abs(A - B) div 2
else
time := (abs(A - B) + 1) div 2;
writeln('Человеку нужно пройти ', time, ' минут');
end.