Решить с подмогою Паскаль 3.Найти, является ли слово "перевертышем", 4.Печать всех

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

Задать свой вопрос
1 ответ
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)


1)
begin
  var a:=ReadString('Введите слово-gt;').ToLower;
  Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.

Пример(1):
Введите слово-gt; Комок
Перевертыш 

Пример(2):
Введите слово-gt; Пистолет
Не перевертыш 

2)
begin 
  var a:=ReadInteger('Число-gt; ');
  Range(1,a).Where(t-gt;a mod t=0).Println;
end.

Пример:
Число-gt; 100
1 2 4 5 10 20 25 50 100

3)
begin 
  for var i:=2 to 10000 do
  begin
    var a:=Range(1,i-1).Where(t-gt;i mod t=0).Sum;
    if a=i then Write(i,' ');
  end;
end.

Ответ:
6 28 496 8128 

Кашеренков Алексей
Хм..отвлекли, на данный момент)
Ленка Хараханова
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт