Câu hỏi
xmen2010
26/04/2013 21:35
Bài tập Pascal giải giúp mình với . Gấp Gấp
ai júp tớ với, tớ sắp ktra rùi
đề đại laọi theo kiểu: nhập vào 2 số nguyên từ bàn phím, tính tổng từ số này đến số kia,mình làm thử rồi nhưng ko chạy ch/tr đc
mọi người xem tớ làm có đúng ko nha:
program baitap;
uses crt;
var s,m,n:integer;
begin
clrscr;
s:=0;
writeln('nhap vao 2 so a,b');
readln(a,b);
if m<=n then
for m to n do
begin
s:=s+m;
m:=m+1;
writeln('tong s=',s:20);
end
else
for n to m do
begin
s:=s+n;
n:=n+1;
writeln('tong s=',s:20);
end;
readln
end.
Handoivodoi
26/04/2013 21:35
đề đại laọi theo kiểu: nhập vào 2 số nguyên từ bàn phím, tính tổng từ số này đến số kia,mình làm thử rồi nhưng ko chạy ch/tr đc
mọi người xem tớ làm có đúng ko nha:
program baitap;
uses crt;
var s,m,n:integer;
begin
clrscr;
s:=0;
writeln('nhap vao 2 so a,b');
readln(a,b);
if m<=n then
for m to n do
begin
s:=s+m;
m:=m+1;
writeln('tong s=',s:20);
end
else
for n to m do
begin
s:=s+n;
n:=n+1;
writeln('tong s=',s:20);
end;
readln
end.
Danh sách câu trả lời (1)
Handoivodoi
26/04/2013 21:35
program baitap;
uses crt;
var s,m,n:integer;
begin
clrscr;
s:=0;
writeln('nhap vao 2 so a,b');
readln(a,b);
if m<=n then
for i:=m to n do(*)
s:=s+i(*)
else
for i:=n to m do(*)
s:=s+i;(*)
writeln('tong s=',s:20);
readln
uses crt;
var s,m,n:integer;
begin
clrscr;
s:=0;
writeln('nhap vao 2 so a,b');
readln(a,b);
if m<=n then
for i:=m to n do(*)
s:=s+i(*)
else
for i:=n to m do(*)
s:=s+i;(*)
writeln('tong s=',s:20);
readln
Trả lời câu hỏi
Câu hỏi lĩnh vực Lập trình
Rao vặt Siêu Vip