Составить программу: найти все натуральные числа кратные 3, интервал от1 до 1000

[Миша.505]

Составить программу: "Найти все натуральные чила кратные трем, от1 до 1000.

[PersonUnknown]

Не получился у меня мод, пишет разную хренотень, сделал более тупее.

uses crt;
var x:integer;
begin clrscr;
x:=0;
while x<1000 do
 begin
 writeln(x);
 x:=x+3;
 end;
end.

Забирай на здоровье

uses crt;
var x:integer;
begin clrscr;
x:=0;
while x<1000 do
 begin
 if (x mod 3) = 0 then
 writeln(x);
 x:=x+1;
 end;
end.

[Миша.505]

напишите программу через цикл с последующим условием, и через мод

на паскале

а можешь еще каким нибудь способом решить?

спасибо........



_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

var N:integer;
begin
  N:=1;
  repeat
    if  (N mod 3) = 0 then WriteLn(N);
    N := N + 1;
  until N>1000;
  readln;
end.

[PersonUnknown]

Сообщение от Serge_Bliznykov

var N:integer;
begin
  N:=1;
  repeat
    if  (N mod 3) = 0 then WriteLn(N);
    N := N + 1;
  until x<=1000;
  readln;
end.

until n<=1000;

[Serge_Bliznykov]

until n<=1000;

Вы правы. Спасибо!
у меня в коде была ошибка.
в цикле Until указывается условие ВЫХОДА из цикла!
а это N>1000