Вопросы Опции

[FYzeST]

Здраствуйте! У меня 2 вопроса по паскалю
1) Как написать програму которая генирирует и выводит на экран случайное число от 1 до 10?
2)Што нада вписать в програму штоб при нажатии клавиши ESC программа закрывалася?

[Unconnected]

1.

begin
  randomize; {Инициализация датчика случайных чисел}
  write(random(10)+1); 
  readln;
end.

2.

uses crt;
var ch:char;
begin
  repeat
    ch:=readkey;
    if ch=#27 then begin {#27 - номер клавиши Escape в таблице ascii символов}
                            halt;
                          end;
  until ch=#27;
end.

Сообщение отредактировано: Unconnected - 23.12.2008 0:37