Hãy lập trình:
– Đọc dữ liệu từ tệp TILE.TXT mỗi lần ra một số nguyên, tệp có một dòng chứa số nguyên, mỗi số cách nhau một dấu cách.
– Hiện ra màn hình lập phương của số nguyên đó.
Hãy lập trình: – Đọc dữ liệu từ tệp TILE.TXT mỗi lần ra một số nguyên, tệp có một dòng chứa số nguyên, mỗi số cách nhau một dấu cách. – Hiện ra màn hì
By Amara
Const Fi=’TILE.TXT’;
Var f: text;
A: array[1..1000] of longint;
n,i: longint;
Begin
Assign(f,Fi); Reset(f);
Readln(f,n);
For i:=1 to n do Read(f,A[i]);
For i:=1 to n do Write(sqr(A[i]),’ ‘);
Close(f);
Readln
End.