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

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

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

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

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

Question

Информатика

Таля

2 июня, 23:41

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

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

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

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Валерий · Answer 1

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.