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 đó.
2 câu trả lời
program bai_giai;
uses crt;
var f:text;
A:array[1..10000] of longint;
n,i:longint;
begin
clrscr;
Assign(f,'TILE.TXT'); reset(F);
readln(f,n);
for i:=1 to n do
begin
read(f,A[i]);
write(A[i]*A[i]*A[i],' ');
end;
close(f); readln;
end.
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.
Câu hỏi trong lớp
Xem thêm
