Не собачьи не кошачьи а медвежий
// Например так:
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.
Оживлёная улица.Мальчик идёт со школы с рюкзаком.На светофоре горит зелёный свет.Машины остоновились и мальчик начинает переходить дорогу.
3.
for i:=<число типа integer> to <число типа integer> do
5.
6.1.
program z1;
uses crt;
var x,a,b,c,s:integer;
begin
writeln('Введите 3-значное число:');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:= x mod 10;
s:=a+b+c;
writeln(s);
end.
6.2.
program z1;
uses crt;
var x,a,b,c,s:integer;
begin