пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное

Question

Информатика

Нинуха

15 марта, 06:01

пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное

+5

Ответы (1)

Знаете ответ на вопрос?

Горислава · Answer 1

var

a, b:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

if a < b then

begin

a : = a + b;

b : = a - b;

a : = a - b;

end;

if a mod b = 0 then

writeln ('a + b = ', a + b)

else

writeln ('a / b = ', a / b) ;

end.