//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
2)запуск программы 4)закрытие программы paint 5) нажатие кнопки х для закрытия программы блокнот
1008 осн.9=1*9^3+8*9^0=729+8=737
703,04 осн.8=7*8^2+3*8^0+4*8^(-2)=448+3+0,0625=451,0625
5030 осн.6=5*6^3+3*6^1=1080+18=1098
737+451,0625+1098=2286,0625 осн.10