• Помогите пж! Язык Pascal. Оператор условия!
    1)Даны три числа. Выведите наименьшее из них.
    2)Определите, является ли введенное с клавиатуры число кратным 3, 7, 9.
    3)Дано четырехзначное число. Верно ли, что число содержит ровно три одинаковые цифры.
    ------------------------------------------------------------------------------------------------------------------
    Срочно!

Ответы 3

  • все
    • Автор:

      elmo2tll
    • 5 лет назад
    • 0
  • изменил нормальней
  • program PrograVtoraya;var k,i:integer;begin writeln('vevedite chislo'); readln(k); if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then begin writeln('chislo kratnoe 3, 7,9'); end else begin writeln('chislo ne kratno 3,7,9'); end; writeln('End?'); readln(i);
  • Добавить свой ответ

Войти через Google

или

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

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

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