Question

скласти програму, що виводить на екран монітора всі натуральні числа кратні 3 до заданого натурального n<=99, visual basic.Число n вводиться з клавіатури
плз срочно помогите

Answer 1

program Project9;  
{$APPTYPE CONSOLE}{$R *.res}
uses  System.SysUtils;
procedure Go;var  i, N: Byte;Begin  i := 0;  Write('Введите N: ');  Readln(N);  if N < 3 then    Exit;  repeat    inc(i, 3);    Write(i, ' ');  until (i >= N);End;
begin  try    { TODO -oUser -cConsole Main : Insert code here }    Go;  except    on E: Exception do      Writeln(E.ClassName, ': ', E.Message);  end;  Readln;
end.