Tin học ngôn ngữ pascal

[Tiết Liên Tranh]

[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.

Bài 1: tổng các số lẻ
tên chương trình ODD.PAS
Cho trước đoạn [a,b],hãy tìm tổng các số nguyên lẻ thuộc đoạn này
Ví dụ, tổng của tất cả số nguyên lẻ trong đoạn [3,9] là 3+5+7+9=24
Dữ liệu: vào từ file văn bản ODD.INP gồm dòng đầu chứa số nguyên a, dòng thứ hai chứa số nguyên b(0<=a<=b<=100)
Kết quả : ghi ra file văn bản ODD.OUT chứa tổng cần tìm

 

[pro3182001]

begin
if a mod 2 =1 then x:=a else x:=a+1;
if b mod 2 =1 then y:=b else y:=b-1;
ssh:=(x-y)/2+1;
tong:=(x+y)*ssh/2;
end.
bạn tự thêm phần đọc file và ghi file nhá .

 

[Tiết Liên Tranh]

begin
if a mod 2 =1 then x:=a else x:=a+1;
if b mod 2 =1 then y:=b else y:=b-1;
ssh:=(x-y)/2+1;
tong:=(x+y)*ssh/2;
end.
bạn tự thêm phần đọc file và ghi file nhá .

phần này thì mình biết còn đọc file và ghi file mới là vấn đề của mình a. giups mình ik

 

[pro3182001]

var ip,op:text;
a,b,x,y,ssh,tong:integer;
begin
array(ip,'ODD.INP');
array(op,'ODD.OUT');
reset(ip);rewrite(op);
readln(ip,a,b);
if a mod 2 =1 then x:=a else x:=a+1;
if b mod 2 =1 then y:=b else y:=b-1;
ssh:=(x-y)/2+1;
tong:=(x+y)*ssh/2;
write(op,tong);
close(op);
end .