Tính tổng của 100 số tự nhiên đầu tiên , hoán đổi giá trị của hai biến x,y và tìm số lớn nhất trong dãy số A cho trước ?
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
3.1
Input: 100 số tự nhiên đầu tiên
Output: Tổng của chúng
3.2:
Input: hai số x,y
Output: Giá trị của hai số sau khi hoán đổi
1: Hoán đổi giá trị hai biến x và y
Chúng ta sẽ gán biến trung gian tam cho x, xong rồi gán biến trung gian tam đó cho y; rồi sau đó gán y ngược lại cho x, và xuất kết quả ra-đó chính là x và y sau khi hoán đổi cho nhau.
2: Tìm giá trị lớn nhất của dãy A
Chúng ta sẽ gán biến ln cho a[1], sau đó sẽ quét qua các phần tử trong mảng xem thử có phần tử nào lớn hơn ln thì gán ln cho phần tử đó. Sau cùng xuất ln ra, ta được số lớn nhất cần tìm.
Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.
a. Vậy hai số có UCLN đạt giá trị lớn nhất là 50 , 25
b. Vậy hai số có BCNN đạt giá trị lớn nhất là 50 , 49
tổng của 100 số đt:
var i,b:integer;
begin
b:=0;
for i:=1 to 100 do
b:=b+i;
writeln('Tong cua 100 so dt:', b);
readln;
end.
tổng của 100 số đt:
var i,b:integer;
begin
b:=0;
for i:=1 to 100 do
b:=b+i;
writeln('Tong cua 100 so dt:', b);
readln;
end.