Практическая работа по информатике 7 класс создания - вопрос №111806107 от ааааааа59 30.12.2021 12:50

Question

Информатика: Практическая работа по информатике 7 класс создания программ содержащих команду ветвления: Задано два числа.Проверить, является ли больше чисел кратным меньшему числу.Если так, то вывести частное от деления большего на меньшее,если нет-сообщение о не кратность чисел

ааааааа59 · Answer

var 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....