Question

Даны n целых чисел. Составить программу, которая выводит в ответ только те из них, которые кратны трём, но при этом оканчиваются только на 9.
ПРОВЕРКА
n = 15
2 3 19 39 45 12  999 8 15 10 69 89  199 9 16
Ответ 39 999 69 9

Answer 1

PascalABC.NET

var
n,a:Integer;
list: List<integer> := new List<integer>;
begin
Write('n=');
Read(n);
for var i:= 1 to n do
begin
Read(a);
if (a mod 3 = 0) and (a.ToString().EndsWith('9')) then
list.Add(a);
end;
WriteLn(list);
end.

Answer 2

Вывод без сохранения был бы не очень корректным,не как указывалось в задаче

Answer 3

Вывод без сохранения был бы не очень корректным,не как указывалось в задаче

Answer 4

Посмотрите, как вывод выглядит в моем решении. Он некорректен на Ваш взгляд?

Answer 5

До вашего уровня я еще не дорос)

Answer 6

У меня вообще не объявлено ни одной переменной и работа идет с последовательностью, которая не хранится в памяти.

Answer 7

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger(ReadInteger('n ='))
      .Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.

Пример
n = 15
2 3 19 39 45 12  999 8 15 10 69 89  199 9 16
39 999 69 9