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

  • составить программу для решения задачи:задай число,определите кратно ли оно10

Ответы 2

  • program test;var x: integer;begin write('Enter the number: '); readln(x); if x mod 10 = 0 then writeln(x, ' multiple of 10') else writeln(x, ' not a multiple of 10'); readln;end.

    • Автор:

      pérez81
    • 6 лет назад
    • 0

  • var

      k : integer;

    begin

      randomize;

      k := trunc (random (1000)); //Задание числа

      writeln ('k = ', k);

      if k mod 10 = 0 then writeln ('Yes') else writeln ('No');

    end.

     

    Не совсем понял, что значит задать число. Если его вводят с клавиатуры, то строчку

      k := trunc (random (1000));

    заменить на

      read (k);

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

Еще вопросы

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

Войти через Google

 или

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

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

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