Question

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

Answer 1

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.