Замени шестнадцатеричную цифру 0 четырьмя двоичными цифрами (тетрадой).

австрия -вена,

бельгия - брюссель,

германия- берлин,

дания - копенгаген,

испания - мадрид,

франция - париж,

швейцария - берн

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.