PascalABC.NET
begin
var flag := true;
var a := readinteger;
var b := readinteger;
for var i := a to b do
if (i * i).ToString.EndsWith(i.ToString) then
begin
write(i, ' ');
flag := false;
end;
if flag then write(-1)
end.
Физик для расчета, конструктор для модылирования, писатель для написания книг, бухгалтер тоже для расчета. врач для справки(узнать новые препораты или что то о болезни.
Все очень просто. Надо взять ближайшее число I к 128
N=2^I
I=7
Это цифра в двоичной системе счисления
Var a,b: integer;
begin
readln(a,b);
if a>b then writeln(a) else writeln(b);
end.