Ответы
Ответ дал:
0
// Например так:
begin
var a := 123456789;
a := a.ToString[2:].ToInteger;
Print(a) // 23456789
end.
// Или так:
function foo(a: integer): integer;
begin
if a div 10 = 0 then exit
else
Result := a mod 10 + 10 * foo(a div 10);
end;
begin
var a := 123456789;
Print(foo(a)) // 23456789
end.
Ответ дал:
0
Данные решения работают только в PascalABC. При проверке через другие придется что-либо подключать для корректной работы.
Ответ дал:
0
Человек пишет в PascalABC.NET
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад