Question

найти сумму целых положительных двузначных чисел из промежутка а до б, кратных 3 и заканчивающихся на 2

Answer 1

//PascalABC.NET 3.3,сборка 1627 от 27.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var (a,b):=readinteger2('a,b-> ');

  var q:=a.Step; var t:=q.Take(b-a+1);

 var u:=t.Where(t->(t mod 3 = 0) and ( t mod 10 = 2)); u.sum.Println;

end.