Program taska; var i, n: integer; begin randomize; n : = random(10); for i : = 1 to n do writeln(random, ' '); end. program taskb; var i: integer; begin randomize; for i : = 1 to 10 do writeln(random, ' '); end. program taskc; var i: integer; begin randomize; for i : = 1 to 10 do writeln(random(11), ' '); end. program taskd; var i: integer; begin randomize; for i : = 1 to 10 do writeln(random(10), ' '); end. program taske; var i: integer; begin randomize; for i : = 1 to 10 do writeln(random(20 + 10 + 1) - 10, ' '); end. program taskf; var i: integer; begin randomize; for i : = 1 to 10 do writeln(random(122 + 97 + 1) - 97, ' '); end. program taskg; var i, sum: integer; beginrandomize; for i : = 1 to 10 do sum : = sum + random(11); writeln(sum); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Коперационным системам можно отнести: 1.qbasic, kobol, pl1 2.excel 7.0, access, foxpro 3.ms-dos 6.2, windows’98, unix 4.nc, vc, windows, powerpoint, word, paint 5.windows’98, pascal, word