Предмет: Информатика, автор: doha15

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

Ответы

Автор ответа: archery
0

var a,b:integer;

Begin

  read(a,b);

  if ((a>b) and (a mod b = 0))

    or ((b>a) and (b mod a = 0)) then writeln(a+b)

  else writeln(a-b);

End.

Похожие вопросы