PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.

Примеры
2441
False

1991
True

№2

begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.

Примеры
625
Афтоморф

1020
Не автоморф

0 0

4 года назад

В каком климатическом поясе мы живем нижний новгород

Ева17 [502]

Умеренный климатический пояс

0 0

4 года назад

Прочитать ещё 2 ответа

даны целые числа a,b,c.Если а<=bb>c,то смените знак у каждого,в противном случае каждое замените наименьшим из них.

PolinaMironova

int a, b, c;

if ( a<=b && b>c )

{

a = a *(-1);

b = b * (-1);

c = c * (-1);

}

else

{

x =min(a,b,c);

x = a = b = c;

}

0 0

3 года назад

Перевести числа из 2сс в 8сс 11101100 10011101,1101 100111010,11101 100001111,1110101 11001111,11101

Вадим999 [24]

354
235, 15
472, 35
417, 165
317, 35

0 0

4 года назад