Tin học Viết phương trình bằng ngôn ngữ pascal

Phùng Lê Toàn Chí · 12 Tháng mười hai 2018

Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n, với n được nhập. Bằng ngôn ngữ pascal

Ray Kevin · 12 Tháng mười hai 2018

Mã:

var n,i,s:integer;
begin
writeln('n='); readln(n); s:=0;
for i:=1 to n do if i mod 2 <> 0 then s:=s+i;
writeln('Tong cac so le nho hon hoac bang n la:',s); readln
end.

Phùng Lê Toàn Chí · 12 Tháng mười hai 2018

Ray Kevin said:

Mã:

var n,i,s:integer;
begin
writeln('n='); readln(n); s:=0;
for i:=1 to n do if i mod 2 <> 0 then s:=s+i;
writeln('Tong cac so le nho hon hoac bang n la:',s); readln
end.

sao mình coi trên mạng chỗ mod 2<>0 người ta làm là 2=1 vậy bạn

Ray Kevin · 12 Tháng mười hai 2018

Chia cho 2 thì có 2 số dư là 0 với 1.
Nếu không bằng 0 thì là bằng 1.
Chúc em học tốt ^^

Phùng Lê Toàn Chí · 12 Tháng mười hai 2018

Ray Kevin said:
Chia cho 2 thì có 2 số dư là 0 với 1.
Nếu không bằng 0 thì là bằng 1.
Chúc em học tốt ^^

Cho hai biến x và y. Hãy mô tả thuật toán đổi giá trị của các biến nói trên để x và y có giá trị tăng dần. Viết = ngôn ngữ pascal
giúp em câu này với

Ray Kevin · 12 Tháng mười hai 2018

Mã:

var x,y,t:integer;
begin
writeln('Nhap x,y: '); readln(x,y);
if x>y then
begin
t:=x; x:=y; y:=t;
end;
writeln('x=',x,'  y=',y);
readln
end.

Tìm kiếm

Tìm kiếm

Tin học Viết phương trình bằng ngôn ngữ pascal

Phùng Lê Toàn Chí

Học sinh mới

Ray Kevin

Học sinh chăm học

Phùng Lê Toàn Chí

Học sinh mới

Ray Kevin

Học sinh chăm học

Phùng Lê Toàn Chí

Học sinh mới

Ray Kevin

Học sinh chăm học