Помогите срочно пожалуйста

0 интересует 0 не интересует
51 просмотров

Помогите срочно пожалуйста


image

спросил от (12 баллов) в категории Информатика
1 Ответ
0 интересует 0 не интересует
ответил от Супер бакалавр (16.9k баллов)
var
  a: array of string;
  i: integer;

begin
  a := System.IO.File.ReadAllLines('input.txt');
  i := Integer.Parse(a[0]);
  a := a[1].Split(' ');
  for i := 0 to i - 1 do
    System.IO.File.AppendAllText(integer.Parse(a[i]) mod 11 = 0 ? a[i] + ' ' : ''); //Любое двузначное число с двумя цифрами одинаковыми делится на 11 без остатка, даже 00 :)
end.
...