Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thu Hà

Giúp mk vs

1 Viết chương trình bằng NNLT pascal

+ Đọc từ tệp dayso.txt mỗi lần ra 1 số nguyên (tệp dayso.txt có 1 dòng chứa các số nguyên, mỗi số cách nhau một dấu cách )

+ Hiện ra màn hình bình phương số nguyên đó

Nguyễn Lê Phước Thịnh
24 tháng 4 2020 lúc 20:27

uses crt;

const fi='dayso.txt';

var f1:text;

a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do

begin

inc(n);

read(f1,a[n]);

end;

writeln('Binh phuong cac so nguyen trong day lan luot la: ');

for i:=1 to n do

write(sqr(a[i]:4);

close(f1);

readln;

end.


Các câu hỏi tương tự
Đông Nguyễn
Xem chi tiết
Hải Hoàng
Xem chi tiết
Trí Trần
Xem chi tiết
Nguyễn Thị Hồng Anh
Xem chi tiết
Tiểu Thư Họ Phạm
Xem chi tiết
Nhung
Xem chi tiết
Dragon
Xem chi tiết
Vlogs Hiếu
Xem chi tiết
Nguyễn Lê Nhật Đăng
Xem chi tiết