Задать вопрос
31 января, 23:21

Решить в Паскаль АБЦ! Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число.

"Входные данные"

Вводятся два числа.

"Выходные данные"

Выведите ответ на задачу. (Примеры: входные - 2,8. выходные - 1)

+2
Ответы (1)
  1. 1 февраля, 00:18
    0
    Program abcd;

    var m, n, i: integer;

    begin

    i:=0;

    Writeln ('m=') ;

    Readln (m) ;

    Writeln ('n=') ;

    Readln (n) ;

    if n mod m = 0 then i:=1;

    if m mod n = 0 then i:=1;

    Writeln ('i = ', i) ;

    Readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решить в Паскаль АБЦ! Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы