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.
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;
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.