Станислав
6 год назад
Скласти програму, що виводить на екран монітора всі натуральні числа кратні 3 до заданого натурального n< = 99, visual basic.Число n вводиться з клавіатури
плз срочно помогите
ОТВЕТЫ
Диодор
Aug 2, 2019
Program Project9;
{$APPTYPE CONSOLE}{$R *.res}
uses System.SysUtils;
procedure Go;var i, N: Byte;Begin i := 0; Write(Введите N: ); Readln(N); if N lt; 3 then Exit; repeat inc(i, 3); Write(i, ); until (i gt;= 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 lt; 3 then Exit; repeat inc(i, 3); Write(i, ); until (i gt;= 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.
199
Смежные вопросы:
