• 28 November 2013
    • Химия
    • Автор: nastyakl05

    Помогите,пожалуйста, написать программу,в которой пользователь предполагается дополнить до 100 некоторое целое число a(а-случайное число,меньше 100). Ответ пользователя проверяется и комментируется. Должен быть random)Спасибо!


    • 28 November 2013
    • Ответ оставил: mrkuzka

    Uses crt;
    var a,b:integer;
    begin
    randomize;
    a:=random(100);
    writeln(a);
    repeat
    readln(b);
    if b=100  then writeln('дополнено');
    if b<100 then writeln('прибавь еще');
    if b>100 then writeln('убавь-ка');
    until b=100;
    end.


    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы