23/06/09 12:02
Tullio
Program Tabelline;
Uses DOS,CRT;
BEGIN
clrscr;
writeln ('Tabellina 1');
writeln ('/1/2/3/4/5/6/7/8/9/10/');
writeln ('Tabellina 2');
writeln ('/2/4/6/8/10/12/14/16/18/20/');
writeln ('Tabellina 3');
writeln ('/3/6/9/12/15/18/21/24/27/30/');
writeln ('Tabellina 4');
writeln ('/4/8/12/16/20/24/28/32/36/40/');
writeln ('Tabellina 5');
writeln ('/5/10/15/20/25/30/35/40/45/50/');
writeln ('Tabellina 6');
writeln ('/6/12/18/24/30/36/42/48/54/60/');
writeln ('Tabellina 7');
writeln ('/7/14/21/28/35/42/49/56/63/70/');
writeln ('Tabellina 8');
writeln ('/8/16/24/32/40/48/56/64/72/80/');
writeln ('Tabellina 9');
writeln ('/9/18/27/36/45/54/63/72/81/90');
writeln ('Tabellina 10');
writeln ('/10/20/30/40/50/60/70/80/90/100');
writeln ('Le hai imparate?');
writeln ('1 si / 2 no');
if scegli=1 then
begin
clrscr;
writeln ('Bravo!');
end
else
if scegli=2 then
begin
clrscr;
writeln ('Ricomincia');
end;
readln;
end.
Cosa c'è che non va?
Uses DOS,CRT;
BEGIN
clrscr;
writeln ('Tabellina 1');
writeln ('/1/2/3/4/5/6/7/8/9/10/');
writeln ('Tabellina 2');
writeln ('/2/4/6/8/10/12/14/16/18/20/');
writeln ('Tabellina 3');
writeln ('/3/6/9/12/15/18/21/24/27/30/');
writeln ('Tabellina 4');
writeln ('/4/8/12/16/20/24/28/32/36/40/');
writeln ('Tabellina 5');
writeln ('/5/10/15/20/25/30/35/40/45/50/');
writeln ('Tabellina 6');
writeln ('/6/12/18/24/30/36/42/48/54/60/');
writeln ('Tabellina 7');
writeln ('/7/14/21/28/35/42/49/56/63/70/');
writeln ('Tabellina 8');
writeln ('/8/16/24/32/40/48/56/64/72/80/');
writeln ('Tabellina 9');
writeln ('/9/18/27/36/45/54/63/72/81/90');
writeln ('Tabellina 10');
writeln ('/10/20/30/40/50/60/70/80/90/100');
writeln ('Le hai imparate?');
writeln ('1 si / 2 no');
if scegli=1 then
begin
clrscr;
writeln ('Bravo!');
end
else
if scegli=2 then
begin
clrscr;
writeln ('Ricomincia');
end;
readln;
end.
Cosa c'è che non va?
aaa