<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
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.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
1.
-57.66 (10) = <span>-111001.10101000111 (2);
</span>- = 1;
111001.10101000111 = 1.1100110101000111 * 10^5;
5 = 101;
5 бит = (5-1) = 1111 разрядов;
101+1111 = 10100 смещённый порядок.
1100110101000111 мантисса
1 10100 1100110101000111 0000000000
2.
0 10000001000 10010111100101 0000000000
11 бит = (11-1) = 1111111111 разрядов.
10000001000 - 1111111111 = 1001 (2) порядок
1001 (2) = 9 (10)
1.10010111100101 * 10^9 = 1100101111.00101 (2)
1100101111.00101 (2) = <span>815.15 (10)
</span>
815.15 (10)
Оскільки повідомлення нам бреше, в ньому виходить 33 символи, отже потрібно всього лише 33*8, що дорівнює 264.(звісно якщо не рахувати крапку в кінці)
1 Кбайт = 1024 байт
a=3 * 27 - 11= 70
a>b значить c=5 * 70 - 11 = 339
Var
n,i,a:integer;
p:longint;
begin
Write('Введите четырехзначное число: '); Read(n);
Write('Введите число для проверки кратности: '); Read(a);
p:=1;
for i:=1 to 3 do
begin
p:=p*(n mod 10);
n:=n div 10
end;
p:=p*n;
if (p mod a)=0 then Writeln('Число кратно ',a)
else Writeln('Число не кратно ',a)
end.
<em><u>Тестовое решение:</u></em>
Введите четырехзначное число: 3673
Введите число для проверки кратности: 7
Число кратно 7
