1.
begin
for var i := 1 to 9 do begin
for var j := 0 to 9 do write(i*10+j, ' ');
writeln;
end;
end.
2.
var
n, s, p : integer;
begin
write('введите число n=');
readln(n);
p := 1;
while n > 0 do begin
s += n mod 10;
p *= n mod 10;
n := n div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p)
end.
3.
var
a : integer;
begin
write('введите 6-и значное число: ');
readln(a);
if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');
end.