Question

Scrieți un program Pascal ce citește de la tastatură 2 numere întregi și verifică dacă aceste numere sunt divizibile (a / b), afișează mesajul ca "sunt divizibile" sau ca "nu sunt divizibile".

Answer 1

program brainly;

var a,b:integer;

begin

 writeln ('Dati a si b');

 readln(a, b);

 

 if a mod b = 0 then

 begin

 writeln('Sunt divizibile');

 end

 else

 begin

 writeln('Nu sunt divizibile');

 end;

end.

Rezultat: