👤
a fost răspuns

1) scrie algoritmul care precizeaza daca un numar x dat este par sau nu .
2) scrie algoritmul care precizeaza daca un numar intreg x dat este sau nu divizibil cu 5 .

Răspuns :

Vladutbercovici

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.