Операторы цикла [PASCAL]

[Ximer]

Помогите пожалуйста с решением.
1)Определите и выведите на экран кол-во чисел между 20 и 1000, которые делются без остатка одновременно на 4, 5 и 9.
2)Найдите и выведите на экран кол-во двухзначных чисел, у которых при умножении на 3 сумма цифр кратна 5.

[IT-man]

//1
k:=0;
for i:=20 to 1000 do 
if (i mod 4=0) and(i mod 5=0) and (i mod 9=0) then inc(k);
writeln(k);

[DM_bite]

2.

program xD;
var i,j,k,l,s: integer;
begin
 for i:= 10 to 99 do
  begin
   k:= i*3;
   if k<100 then
    begin
     l:= k mod 10;
     j:= k div 10;
     if (l+j) mod 5=0 then WriteLn(i);
     end;
     if k>100 then
     begin
      l:= k mod 10 mod 10;
      j:= k div 100;
      s:= k div 10 mod 10;
      if (l+j+s) mod 5=0 then WriteLn(i);
      end;
   end;
   ReadLn;
   end.

Вроде так, проверь... На скорую руку писал.

[Ximer]

Спасибо. Всё работает.