Huỳnh Trim
Hỏi từ APP VIETJACK
Tính tổng :S= 1+2+....+N.
Input: đọc giá trị nguyên dương cho biến n từ tệp đầu vào CAU1.INP
Output: ghi giá trị S vào tệp đầu ra CAU1.OUT.
Input: đọc giá trị nguyên dương cho biến n từ tệp đầu vào CAU1.INP
Output: ghi giá trị S vào tệp đầu ra CAU1.OUT.
Quảng cáo
1 câu trả lời 350
uses crt;
const
fi='CAU1.inp';
fn='CAU1.out';
var n: string;
f:text;
m,i,a,tong: integer;
BEGIN
clrscr;
assign(f,fi);reset(f);
read(f,n);
read(f,m);
close(f);
assign(f,fn);rewrite(f);
for i:= length(n) downto length(n)-m+1 do
begin
val(n[i],a);
tong:=tong+a;
end;
write(f,tong);
close(f);
readln;
END.
const
fi='CAU1.inp';
fn='CAU1.out';
var n: string;
f:text;
m,i,a,tong: integer;
BEGIN
clrscr;
assign(f,fi);reset(f);
read(f,n);
read(f,m);
close(f);
assign(f,fn);rewrite(f);
for i:= length(n) downto length(n)-m+1 do
begin
val(n[i],a);
tong:=tong+a;
end;
write(f,tong);
close(f);
readln;
END.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86376
Gửi báo cáo thành công!
