Задано два числа.Перевірити, чи більше з чисел - вопрос №11181025 от nastyakostikov1 25.04.2021 07:26

Question

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

nastyakostikov1 · 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....