Bài 6: Giải bài toán trên máy tính

Vương gia bảo
Xem chi tiết
Diễm Quỳnh Trịnh
Xem chi tiết
Diễm Quỳnh Trịnh
Xem chi tiết
Lâm Khánh Linh
Xem chi tiết
Ngọc Hiền
Xem chi tiết
Tat Đạt
Xem chi tiết
Như Quỳnh
Xem chi tiết
Đẹp Trai Trọng
16 tháng 9 2019 lúc 21:02

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

for i:=1 to n do

s:=s+i;

write('Tong:',s);

readln

end.

Bình luận (0)
bui thi anh
Xem chi tiết
Minh Lệ
12 tháng 8 2019 lúc 18:49

Lời giải :

program hotrotinhoc;

var x,y,x1: integer;

begin

readln(x);

x1:=x;

readln(y);

x:=y;

y:=x1;

write('Sau khi hoan doi: x=',x,', y= ',y);

readln

end.

Bình luận (0)