Помогите пожалуйста!!! Паскаль. Найти сумму целых положительных чисел: больших 20,...

Question

Помогите пожалуйста!!! Паскаль. Найти сумму целых положительных чисел: больших 20, меньших 100, кратных 3 и заканчивающихся на 2/4/8.

Answer 1

Var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
 begin
 a:=i mod 10;
 if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
 end;
writeln('s = ',s);
end.

Результат:
s = 402