Найти количество всех 3-значных чисел кратных 15

[bestPROgrammer]

СРОООООООООООООЧНООООООООО!!!!!!!!! !ЖЕЛАТЕЛЬНО НА ЯЗЫКЕ ПАСКАЛЯ

[kuli4ok]

1 вариант:

  1 program a1;
  2 var
  3 i, k: integer;
  4 begin
  5 k:=0;
  6 i:=100;
  7 while (3>2) do
  8    begin
  9     if ((i mod 15)=0) then
 10         begin
 11         break;
 12         end
 13     else
 14         begin
 15         i:=i+1;
 16         end;
 17     end;
 18 while (i<1000) do
 19     begin
 20     k:=k+1;
 21     i:=i+15;
 22     end;
 23 writeln(k);
 24 end.

2 вариант:

  1 program a1;
  2 var
  3 i, k: integer;
  4 begin
  5 k:=0;
  6 i:=100;
  7 while (i<1000) do
  8 begin
  9 if ((i mod 15)=0) then k:=k+1;
 10 i:=i+1;
 11 end;
 12 writeln(k);
 13 end.

[Sciv]

ЖЕЛАТЕЛЬНО НА ЯЗЫКЕ ПАСКАЛЯ

Ежли что, то язык Паскаля - французский