Chương trình đơn giản

Trí Ngô

Giả sử tệp dulieu.in chứa các số nguyên , mỗi số nguyên nằm trên 1 dòng . Viết chương trình tính tổng hình phương các số nguyên đó và ghi vào tệp dulieu.out

Nguyễn Lê Phước Thịnh
27 tháng 6 2020 lúc 21:39

const fi='dulieu.inp';

fo='dulieu.out';

var f1,f2:text;

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

i,n,t:integer;

begin

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

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

n:=0;

while not eofn(f1) do

begin

inc(n);

readln(f1,a[n]);

end;

t:=0;

for i:=1 to n do

t:=t+sqr(a[i]);

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)

Các câu hỏi tương tự
Trần Thị Hương Ly
Xem chi tiết
Đinh Hoàng Nhất Quyên
Xem chi tiết
Vân Ngô
Xem chi tiết
Thái Bảo
Xem chi tiết
Hà Phương
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Hoàng lĩnh
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Đinh Hoàng Nhất Quyên
Xem chi tiết