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

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

Question

Градислава

28 января, 14:52

+4

Ответы (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 или наоборот, то вывести единицу, иначе любое другое число