Задать вопрос Регистрация
Помочь другим

  • Написать программу, в которой пользователю предлагаетсядополнить до 100 некоторое целое число а (а - случайное число, меньшее 100).

Ответы 2

  • var a,b:integer;

    Begin

      randomize;

      a:=random(99);

      writeln('Дополните ', a);

      read(b);

      if (a+b=100) then writeln(':-)')

      else writeln(':-(');

    end.

  • var

      a, b:integer;

    begin

      randomize;

      a := random(100);

      write('100 = ', a, ' + ');

      readln(b);

      if a + b = 100 then

        writeln('Правильно')

     else

        writeln('Неправильно, нужно было ввести ', 100 - a);

    end.

     

    • Автор:

      kaufman
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years