1) напишите программу, которая организует массив из 10 целых чисел по случайному закону в интервале от 0 до 200. и определяет сумму элементов массива кратных 5. на экран выводятся элементы созданного массива в строку с форматом 4, элементы , значение которых кратно 5 и сумма. используйте 2 цикла.

ответ:

var

  a: array [1..10] of integer;

  i, s: integer;

begin

  randomize;

  s : = 0;

  for i : = low (a) to high (a) do begin

    a [i] : = random (201);

    write (a [i] : 4);

  end;

  writeln;

  for i : = low (a) to high (a) do begin

    if a [i] mod 5 = 0 then begin

      s : = s + a [i];

      write (a [i] : 4);

    end;

  end;

  writeln;

  writeln ('сумма = ', s);

  readln;

end.

Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево.

Входные данные

Входной файл INPUT.TXT содержит натуральное число N (1000 ≤ N ≤ 9999).

Выходные данные

В выходной файл OUTPUT.TXT следует вывести слово «YES», если число N является палиндромом, или «NO» – если нет.

Объяснение:

Примеры

INPUT.TXT OUTPUT.TXT

6116 YES

1231 NO