Паскаль, нужна помощь

Question

Нужно написать программу, которая находит сумму положительных чисел, больше 20 меньше 100, и заканчиваются на 2 или 8. 
Заранее спасибо.

Leonid Perevalov · Accepted Answer

var i,j,s:integer; 
begin 
s:=0; for i:=2 to 9 do for j:=0 to 1 do s:=s+10*i+6*j+2; 
writeln(s); readln 
end.

Дмитрий Кузьмин · Answer

var sum, i : integer; 
begin 
for i := 20 to 100 do 
if (i mod 3 = 0) and ((i div 10 = 2) or (i div 10 = 4) or (i div 10 = 8)) then 
sum := sum + i; 
writeln('Сумма равна ', sum) 
end. 
 
цифры заменить

Анна Яновская · Answer

Самое просто решение это задачи следующее: 
begin 
 writeln(22+28+32+38+42+48+52+58+62+68+72+78+82+88+92+98); 
end. 
 =) 
Если нужно посерьезнее программка, то предлагаю такую: 
 
var i,n,s: integer; 
begin 
cls; 
 for i:=20 to 100 do begin 
 n:=round(frac(i/10)*10); 
 if (n=2) or (n=8) then s:=s+i; 
 end; 
 writeln(s); 
end.