составить программу

ввести с клавиатуры 2 целых числа m и n >0 если m делится на n или наоборот, то вывести единицу, иначе любое другое число

Question

Васяк

21 октября, 16:47

+1

Ответы (1)

Знаете ответ?

Наля · Answer 1

uses crt;

var m, n:longint;

begin

read (m, n) ;

if (m mod n=0) or (n mod m=0) then writeln (1)

else writeln (2) ;

end.

составить программуввести с клавиатуры 2 целых числа m и n >0 если m делится на n или наоборот, то вывести единицу, иначе любое другое число