tehran
Dołączył: 03 Lut 2008
Posty: 14
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Śro 20:59, 06 Lut 2008 Temat postu: kwadraty kolejnych liczb(tablicami) |
|
|
program kwadracik;
var
i:integer;
d:integer;
a:array [1..10] of integer;
begin
i:=1;
for i:=1 to 10 do
begin
writeln ( ' kwadrat ' ,i , 'wynosi' , i*i);
readln;
a[i]:=d;
end;
end.
Post został pochwalony 0 razy
Ostatnio zmieniony przez tehran dnia Pon 13:38, 11 Lut 2008, w całości zmieniany 1 raz
|
|