Начертить схему 11 слайда, заполнить, карточками расположенными справа. ​

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln(s.Inverse)
end.

Пример
Я пишу программу на языке Паскаль
ьлаксаП екызя ан уммаргорп ушип Я

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  Write('Введите два символа СЛИТНО для сравнения их частоты: ');
  var ab:string;
  Readln(ab);
  var a:=ab[1];
  var b:=ab[2];
  var ka:=0;
  var kb:=0;
  for var i:=1 to s.Length do
    if s[i]=a then ka+=1
    else if s[i]=b then kb+=1;
  if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b)
  else
    if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b)
    else
      if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково')
      else Writeln('Символы ',a,' и ',b,' отсутствуют')
end.

Пример
Введите строку: а роза упала на лапу азора
Введите два символа СЛИТНО для сравнения их частоты: ао
Символ а встречается чаще, чем о

#include <iostream>

using namespace std;

unsigned long int Rev(unsigned long int x);

int main()  

{

unsigned long int a, b;

cout << "Input a natural number A: ";

cin >> a;

cout << "Input a natural number B: ";

cin >> b;

cout << "Rev(Rev(A) + Rev(B)) = " << Rev(Rev(a) + Rev(b));

}

unsigned long int Rev(unsigned long int x) {

unsigned long int numb = 0;

while (x != 0) {

 numb = (numb + x % 10) * 10;

 x /= 10;

}

return numb / 10;

}

/* Форматирование, скорее всего, не сохранится, поэтому прикрепляю .cpp файл */