Question

in programa pascal: va rog ​

Answer 1

Răspuns:

program CheckRectangleArea;

var

 width, height, area: integer;

begin

 { Intreaba utilizatorul de lungimea si latimea dreptunghiului }

 write('Latimea dreptunghiului: ');

 readln(width);

 write('Inaltimea dreptunghiului: ');

 readln(height);

 { Calcularea ariei dreptunghiului }

 area := width * height;

 { Verificare daca aria este para sau impara }

 if (area mod 2) = 0 then

   writeln('Aria dreptunghiului este para')

 else

   writeln('Aria dreptunghiului este inpara');

 { Asteptarea raspunsului a utilizatorului inaintea inchiderea programului }

 readln;

end.

Explicație:

Commenturile din cod intre '{}' explica ce face fiecare piesa a codului.

Answer 2

Răspuns:

program ariaD;

var aria,lun,lat:integer; //aria , lungime , latime dreptunghi

begin //pp

writeln('Introduceti lungime:');

readln(lun);

writeln('Introduceti latime:');

readln(lat);

aria:=lun*lat;

if (aria mod 2=0) then Writeln('Aria para')

                           else Writeln('Aria impara');

readln;

end.