Tin học Viết chương trình (Tin học 11)

[Lê Thị Quỳnh Chi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập từ bàn phím số nguyên n. Tính tổng các số chẵn trong khoảng từ 1 -> n, giá trị kết quả vào tệp KQ.TXT

 

[Thủy Ling]

Viết chương trình nhập từ bàn phím số nguyên n. Tính tổng các số chẵn trong khoảng từ 1 -> n, giá trị kết quả vào tệp KQ.TXT

 

[Lê Thị Quỳnh Chi]

View attachment 97658

đây là bài thao tác với tệp mà

 

[HThieu3177]

var f:text;
n,i,s:integer;
begin
write('nhap n: '); readln(n);
for i:=1 to n do if i mod 2 =0 then s:=s+i;
assign (f,'kq.txt');rewrite(f);
write(f,s);
close(f);
end.