Pascal, помогите пожалуйста, теснее достало, честное слово... Ну не моё это.1)

Pascal, помогите пожалуйста, теснее достало, честное слово... Ну не моё это.
1) Напишите программу в которой на экран выводится строчка из 3-х случайных строчных латинских знаков.
Пример вывода:
Паскаль: Я сгенерировал строчку: fke

2)Напишите программку, в которой с клавиатуры вводится ширина диапазона
случайных чисел и выводится случайное число в спектре от 0 до N (где N
введенное с клавиатуры число)
Пример вывода:
Введите ширину спектра случайных чисел: 150
Паскаль: Я сгенерировал число: 48

3)Напишите программку, в которой с клавиатуры вводятся начальное и
окончательное значения диапазона случайных чисел и выводится случайное число в
спектре от M до N (где M и N введенные с клавиатуры числа)
Пример вывода:
Введите начало спектра случайных чисел: 50
Введите конец спектра случайных чисел: 150
Паскаль: Я сгенерировал число: 89

4)Напишите программку для случайного определения фаворита школьной
лотереи. В лотерее участвовали билеты с 3-мя двузначными числами.
На экран поочередно выводится три двузначных числа.
Пример вывода:
1-ое число выигрышного билета: 54.
2-ое число выигрышного билета: 34.
Третье число выигрышного билета: 72.
Выиграл билет с комбинацией числе: 54 34 72.

Задать свой вопрос
1 ответ
Program randstring;
var
a:array[1..3] of char;
i:integer;

begin
while i lt; 3 do begin
i+=1;
a[i]:=rand();
write(a[i]:3);
end;
end.

programm r;
var
n:integer;
begin
read(n);
write(random(n));
end.

трудный вариант
programm r;
var
a:array[1..1000]of integer;
i,m,n:integer;
begin
read(n,m);
i:=n;
while i lt; m do begin
i+=1;
a[i-n]:=i-n;
end;
i:=random(m-n)+1;
write(a[i])
end.


while i lt; 3 do begin
i+=1;
writeln(random(90)+10)
end;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт