Версия для печати темы

Автор: Sanches 27.03.2009 22:48

кто может помочь написать эту прогу в паскале??? Очень прошу...


Написать программу, которая выводит пример на вычитание !(в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат. Ниже приведен рекомендуемый вид эк¬рана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом).
Сколько будет 83-17?
Введите ответ и нажмите <Enter>
->67
Вы ошиблись. 83-17=66

Автор: Гость 27.03.2009 23:28

Цитата(Sanches @ 27.03.2009 18:48)

var
  a, b, c: integer;

begin
  Randomize;
  a:=Random(100)+1;
  b:=Random(100)+1;
  WriteLn('Сколько будет ',a,'-',b,'?');
  WriteLn('Введите ответ и нажмите <Enter>');
  Write('-> ');
  ReadLn©;
  if c=a-b then WriteLn('Правильно!') else WriteLn('Вы ошиблись. ',a,'-',b,'=',a-b)
end.

Автор: Sanches 28.03.2009 0:16

Большое спасибо. очень помогло