Răspuns :
Program P7;
var a, b,c, p: integer;
s:real;
begin
wreteln (' a, b,c') ;
readln (a, b, c );
p:=a+b+c
s:= 1/2*a*b
writeln ('s=',s);
writeln (' p=',p);
readln;
end.
var a, b,c, p: integer;
s:real;
begin
wreteln (' a, b,c') ;
readln (a, b, c );
p:=a+b+c
s:= 1/2*a*b
writeln ('s=',s);
writeln (' p=',p);
readln;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.