Даны n целых чисел. составить программу, которая выводит в ответ только те из них, которые кратны трём, но при этом оканчиваются только на 9. проверка n = 15 2 3 19 39 45 12 999 8 15 10 69 89 199 9 16 ответ 39 999 69 9
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.
Внимание! Если программа не работает, обновите версию!
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
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.