Răspunsuri

2014-10-11T12:55:58+03:00

1)var x:integer(poti pune word sau longint etc.);

begin

write('x=');read(x);

if(x mod 2=0) then writeln('par')

else writeln('impar');

end.

Analog pentru 2), doar ca in loc de 2 scrii 5, iar la mesaj scrii 'este divizibil cu 5' sau 'nu este divizibil cu 5', dupa caz.