Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.