Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающееся на 2.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->(x mod 3=0) and (x mod 10=2)).Sum);
end.

Answer 2

Var
n,i,a,k:integer;
s:string;
begin
readln(n);
for i:=1 to n do
begin
read(a);
str(a,s);
if ((s[length(s-1)]='2')and((a mod 3)=0))then k:=k+1;
end;
writeln(k);
end.