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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Quý Minh

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 ạ

Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
No One Actually
Xem chi tiết
_04bh_
Xem chi tiết
Trang Koy
Xem chi tiết
Minh Hoàng Lê
Xem chi tiết
Trần Thị Hương
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Đoàn Vĩ Khang
Xem chi tiết
Thanh Tuyền
Xem chi tiết
Trinh Nguyễn
Xem chi tiết