 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. |
|
