Задано два числа.Перевірити, чи більше з чисел є кратним - вопрос №11180625 от 31Maks31 03.03.2020 06:57

Question

Информатика: Задано два числа.Перевірити, чи більше з чисел є кратним меншому числу.Якщо так, то вивести частку від ділення більшого на менше,якщо ні-повідомлення про не кратність чисел

31Maks31 · Answer

// Pascalvar a, b, tmp: integer;begin a := 15; b := 5; if a b then begin tmp := a; a := b; b := tmp; end; if a mod b = 0 then writeln(a div b) else writeln( Числа не кратные );end....