Sa se alcatuiasca un program care verifica aria dreptunghiului care este para sau inpara (in programul pascal). va rog mult
Răspunsuri la întrebare
Răspuns:
program VerificareArieDreptunghi;
var
lungime, latime, aria: integer;
begin
write('Introduceti lungimea dreptunghiului: ');
readln(lungime);
write('Introduceti latimea dreptunghiului: ');
readln(latime);
aria := lungime * latime;
writeln('Aria dreptunghiului este: ', aria);
if (aria mod 2 = 0) then
writeln('Aria dreptunghiului este un numar par.')
else
writeln('Aria dreptunghiului este un numar impar.');
readln;
end.
Explicație:
În acest program, se citesc lungimea și latimea dreptunghiului de la tastatură folosind funcția readln.
Aria dreptunghiului este calculată prin înmulțirea lungimii cu lățimea, iar apoi este afișată cu ajutorul funcției writeln.
Pentru a verifica dacă aria este un număr par sau impar, se folosește operatorul mod, care calculează restul împărțirii întregi dintre aria dreptunghiului și 2.
Dacă restul este 0, atunci aria este un număr par și se afișează un mesaj corespunzător. Dacă restul este diferit de 0, atunci aria este un număr impar și se afișează alt mesaj.
La finalul programului, se așteaptă ca utilizatorul să apese o tastă pentru a închide fereastra de consolă, folosind funcția readln.