Задание:
Вывести на экран случайные целые числа находящиеся в промежудке от 1 до 100
Решение:
vari,k: integer; beginrandomize; for i: =1 to 10 dowrite (random (101)+1, '); end.
Знаете другой ответ?
Вывести на экран случайные целые числа находящиеся в промежудке от 1 до 100
vari,k: integer; beginrandomize; for i: =1 to 10 dowrite (random (101)+1, '); end.
Знаете другой ответ?