Sa se scrie un program care determina aria totala si volumul unui cub pentru care se cunoaste lungimea laturii.
Programul citeste de la tastatura numarul L, reprezentand lungimea laturii cubului.
Programul afiseaza pe ecran numerele S si V, separate printr-un spatiu, reprezentand aria totala si volumul cubului dat.
Va rog Frumos in Pascal
Urgent. - Dau coroana
Răspunsuri la întrebare
Răspuns de
1
var l,s,v : integer;
Begin
read(l);
s:=6*sqr(l);
v:=sqr(l)*l;
write(s,' ',v );
End.
Begin
read(l);
s:=6*sqr(l);
v:=sqr(l)*l;
write(s,' ',v );
End.
Alte întrebări interesante
Arte,
8 ani în urmă
Limba română,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
var l,s,v:Real;
begin
repeat
write('lungimea laturii este: L=');Readln(l);
until l>0;
S:=6*l*l;
v:=l*l*l;
write('S=',S,' V=',V);
readln;
end.