Предмет: Информатика,
автор: bestprek1
скласти програму, що виводить на екран монітора всі натуральні числа кратні 3 до заданого натурального n<=99, visual basic.Число n вводиться з клавіатури
плз срочно помогите
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Математика,
автор: kalininsana173
Предмет: Беларуская мова,
автор: veronikahaven
Предмет: Математика,
автор: gordeykaa
Предмет: Химия,
автор: stasuk649
Предмет: Математика,
автор: Аноним