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

0 голосов
13 просмотров

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


image

Информатика (12 баллов) | 13 просмотров
Дан 1 ответ
0 голосов
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.
(16.9k баллов)