Var A:
integer;
begin
writeln('введите двузначное число');
readln(A);
writeln ((A div 10)*100+(A mod 10));
writeln (A*10);
writeln ((A mod 10)*100+(A div 10));
writeln (((A mod 10)*10+(A div 10))*10);
<span>end.</span>
Возведение вещественного числа x в натуральную степень n (без использования стандартных функций):
var n,i:integer; x,xn:real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
xn:=1;
for i:=1 to n do xn:=xn*x;
writeln('xn = ',xn:6:3);
end.
Пример:
<span>x = 2
n = 5
xn = 32</span>
Примернокактр както так ок
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function CalcWord(Stroka: string):integer;
begin
Result:=Stroka.ToWords.Where(w->w=w.Inverse).Count
end;
begin
var s:='казак пошел в кабак и сделал заказ';
Writeln('Слов-палиндромов: ',CalcWord(s))
end.
<u>Результат</u>
Слов-палиндромов: 5
<u>Если однобуквенные слова не учитываются</u>, надо изменить Where:
Where(w->(w=w.Inverse) and (w.Length>1))
Ответ выводится в формате (номинал) х (кол-во)
Одна программа длинная, но простая, а другая - более сложная.