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.

Answer 2

ну вот этот пояснительный текст ,не пойму куда его применить

Answer 3

var a, b, tmp: integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);

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.

Answer 4

Я вам ещё побеспокою.Может ещё знаете как выполнить это задание.

Answer 5

не за что