Решить с помощью Паскаль №3.Определить, является ли слово "перевертышем", №4.Печать всех делителей натурального числа A, №5.Печать всех совершенных чисел до 10000.

А две другие задачи?

Хм..отвлекли, сейчас)

Спасибо

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)1)begin  var a:=ReadString('Введите слово->').ToLower;  Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');end.Пример(1):Введите слово-> КомокПеревертыш Пример(2):Введите слово-> РевольверНе перевертыш 2)begin   var a:=ReadInteger('Число-> ');  Range(1,a).Where(t->a mod t=0).Println;end.Пример:Число-> 1001 2 4 5 10 20 25 50 1003)begin   for var i:=2 to 10000 do  begin    var a:=Range(1,i-1).Where(t->i mod t=0).Sum;    if a=i then Write(i,' ');  end;end.Ответ:6 28 496 8128