скласти програму, що виводить на екран монітора всі натуральні числа кратні 3 до заданого натурального n<=99, visual basic.Число n вводиться з клавіатури
плз срочно помогите
Ответы на вопрос
Ответил ms301
0
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.
{$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.
Новые вопросы