5600байт
а по другому 5 гб 600гг ответ буква а
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Исходный:'); a.Println;
writeln('Реверс:');
a.Reverse.Println;
end.
Пример:
Исходный:
-4 10 4 3 0 -7 -1 -3 -4 -1
Реверс:
-1 -4 -3 -1 -7 0 3 4 10 -4
В 2-ой - 110000010
в 8 - ой - 602
<span>в 16 - ой - 182</span>