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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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