Question

Даны 2 целых числа а и b узнать делится ли число а на b или b на а;если делится то вывести ответ на экран,если нет то вывести сумму этих чисел.

Плииииииз)

Answer 1

var a,b:integer;

begin

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

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

if a mod b =0 then writeln('a/b=',a div b);

if b mod a =0 then writeln('b/a=',b div a);

if not(a mod b =0) and not(b mod a =0) then writeln('a+b=',a+b);

end.