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

[Phùng Lê Toàn Chí]

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

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í]

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]

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í]

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]

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.