Предмет: Информатика,
автор: ira14051
Задано два числа.Перевірити, чи більше з чисел є кратним меншому числу.Якщо так, то вивести частку від ділення більшого на менше,якщо ні-повідомлення про не кратність чисел
Ответы
Автор ответа:
1
// 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.
ira14051:
дякую
Интересные вопросы
Предмет: Русский язык,
автор: свен305
Предмет: Русский язык,
автор: gekaeremin
Предмет: Другие предметы,
автор: Аноним
Предмет: Биология,
автор: zaurbek200115
Предмет: Литература,
автор: ученик1517