BBBBBBBBBBBBBBB
CCCCCCCCCCCCC
DDDDDDDDDDDDD
XXXXXXXXXXXXXX
YYYYYYYYYYYYYYYY
ZZZZZZZZZZZZZZZZZZ
program perimetro_triangolo;
uses crt;
var lato,perimetro:integer;
begin
clrscr;
read(lato);
perimetro:=lato*3;
write(perimetro);
repeat until keypressed;
end
BeGa ha scritto:
- Codice: Seleziona tutto
program perimetro_triangolo;
uses crt;
var lato,perimetro:integer;
begin
clrscr;
read(lato);
perimetro:=lato*3;
write(perimetro);
repeat until keypressed;
end
BeGa ha scritto:Bello eh????
ho provato a farne uno x il volume di una sfera ma non funziona
BeGa ha scritto:Turbo pascal. se lo vuoi te lo mando
Visitano il forum: Nessuno e 0 ospiti
megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising