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

tatianani tatianani    2   11.04.2020 03:26    1

Ответы
Egoor123999 Egoor123999  13.10.2020 02:10

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.

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