Bài 18: Ví dụ về cách viết và sử dụng chương trình con

NM

Tệp baitap.in chứa 1 số nguyên, tính bình phương số đó, ghi kq vào tệp ketqua.out

Giúp em với ạ

NT
28 tháng 5 2020 lúc 21:28

const fi='baitap.inp';

fo='ketqua.out';

var f1,f2:text;

n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

writeln(f2,sqr(n));

close(f1);

close(f2);

end.

Bình luận (0)

Các câu hỏi tương tự
NA
Xem chi tiết
H24
Xem chi tiết
TK
Xem chi tiết
ML
Xem chi tiết
TH
Xem chi tiết
NT
Xem chi tiết
DK
Xem chi tiết
TT
Xem chi tiết
TN
Xem chi tiết