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

dikinova2017ozio8q dikinova2017ozio8q    3   11.04.2020 03:08    1

Ответы
tinyshbaev tinyshbaev  12.08.2020 14:01

// Pascal

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика