Как пользоваться Поиском

поиск по сайту
логин

пароль

регистрация     
забыли пароль?

Помощь сайту

Лекции »Выбор. Условный оператор или команда ветвления » Пример на вычитание

Пример на вычитание

создана: 14.01.2012 в 22:11
................................................

 ( +3192 ) 

:

Написать программу, которая выводит пример на вычитание двух чисел, заданных в промежутке [0,99], запрашивает ответ пользователя, проверяет его и выводит сообщение YES  или  NO.

program primer;         

Uses Crt;

var a,b: integer;

var otv: integer;

begin

        ClrScr;

        Randomize;

        a:=Random(99);

        b:=Random(99);

        writeln;writeln;

    writeln(a,' - ',b,' = ?');

    readln(otv);

    if (a-b=otv) then write('Yes')

    else

    write('NO');

readln;

end.

 
29.10.2012 15:46
Комментировать

я такое пока не знаю

Хочу написать ответ