Задание 7Дан массив целых неодинаковых четырехзначных чисел. Отыскать в массиве

Задание 7
Дан массив целых неодинаковых четырехзначных чисел. Найти в массиве число:
1. которое является палиндромом
2. сумма цифр которого больше данного с клавиатуры обычного числа
Результаты выдать на экран

Задать свой вопрос
Семён
а язык программирования какой использовать? и сколько чисел нужно в массиве?
Злата
pascal
1 ответ
// PascalABC.NET 3.2, сборка 1509 от 27.07.2017
// Внимание! Если программка не работает, обновите версию!

function SumDig(n:integer):integer;
begin
  Result:=0;
  while ngt;0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
  Write('Палинодромы: ');
  a.Select(x-gt;x.ToString).Where(x-gt;x=x.Inverse).Println;
  var k:=ReadInteger('Введите простое число');
  Write('Числа, сумма цифр которых больше введенного: ');
  a.Where(x-gt;SumDig(x)gt;k).Println
end.

Пример
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт