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

begin

var a: =readinteger;

var b: =readinteger;

var min: =0.0;

for var i: =a to b do

begin

min+=0.5;

end;

if odd(a) and not odd(b) then

write(min-1);

if not odd(a) and odd(b) then

write(min);

if (not odd(a) and not odd(b)) or (odd(a) and odd(b)) then

write(min-0.5);

end.

вроде так, но не уверен!

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

десятичная   двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                               12                                       a

18                 10010                             22                                     12

322               101000010                   502                                   142

2)

10                 1010      

74                                                         112      

92                                                                                                 5c  

числа снизу обозначают систему счисления