Написать задачу на языке PascalABC
По одну сторону улицы находятся дома с нечетными номерами (1,3,5,..),
по другую сторону- четными (2,4,6,..). Дом 1 находится напротив дома 2, дом 3- напротив дома 4 и тд. До соседнего дома нужно идти вдоль по улице одну минуту, неважно, с какой стороны улицы он находится (то есть от дома 1 нужно идти одну минуту как до дома 3, так и до дома 4). До дома, стоящего напротив, идти не нужно.
Человек вышел на улицу из дома А и должен дойти до дома В. Определите, сколько минут ему нужно идти вдоль по улице.
Программа получает на вход два различных целых положительных числа А и В, не превосходящие 2•10(в 9 степени), - номера домов. Программа должна вывести одно число-искомое количестао минут.
Пример входных и выходных данных :
Ввод : 1 , 8
Вывод: 3

10 Сен 2019 в 23:45
616 +1
0
Ответы
1
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.
20 Апр 2024 в 01:49
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир