mình dùng cách khác nhé
var x,y:longint;
begin
write('nhap x,y:');readln(x,y);
repeat
if x>y then x:=x-y else y:=y-x;
until x=y;
write('ucln la ',x);
readln;
end.
Hãy cho biết ket qua cua cac đoạn chương trình sau
x:=1;y:=2;z:=3;
for i:=1 to 5 do
if i mod 2=0 then
begin x:=x+2 ; y:=y+2 ; z:= z+y+x; end;
writeln(x,','y,','z);
giải dùm mình lẹ lẹ nha
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết sau khi thực hiện lệnh lặp giá trị của x và y là bao nhiêu? Và mỗi đoạn chương trình thực hiện bao nhiêu vòng lặp a Đoạn chương trình 1 b Đoạn chương trình 2: x: 0; y: 5 x:=1 ; y:= 5; For i:-5 to 2 do x:=x+2: For i:=3 to 7 do x:=x+2; y:=y+x; y:= y + x;
câu 1: cho đoạn phương trình sau:
x:=0; y:=1; z:=2
fox i:=1 to 10 do
x:=x+1; y:=y+x; z:=z+y;
hãy cho biết có bao nhiêu vòng lặp và giá trị các biến x,y,z bằng bao nhiêu ?
câu 2: giả sử S là tích của n số tự nhiên đầu tiên tức là s=1.2.3.4...n
a,Dùng câu lệnh lặp while...do viết phương trình
b,xác định n bằng bao nhiêu S nhỏ nhất lớn hơn 10000
Viết c trình
a) nhập từ bàn phím một số nguyên n biểu diễn sĩ số của một lớp 1<=n<=45. Khi người sử dụng nhập số nguyên ngoài khoảng này, c trình sẽ yêu cầu nhập lại và chỉ kết thúc khi số hợp lệ được nhập.
b) nhập số thực x biểu diễn điểm của học sinh 0<=x<=10 làm tròn đến 1/4.
Mik đang cần gấp mn giúp mik nhé!
Viết chương trình :
a) nhập các số x,y,n,z:
b)kiểm tra xem các số x,y,n,z là số chẵn hay số lẻ.
c)tính S=1+4+7+...+n
d)tính A=\(\frac{x}{x+y}+\frac{x^2}{\left(x+y\right)^2}+\frac{x^3}{\left(x+y\right)^3}+...+\frac{x^n}{\left(x+y\right)^n}\)
Giúp mình nhé cần trước thứ 7
Viết chương trình pascal nhập vào hai số tự nhiên x,y sao cho chương trình chỉ cho nhập các số tự nhiên x,y thỏa mãn 4<=x<10 và 30<y<=200
- in ra màn hình các số lẻ chia hết cho 3 trong khoảng từ x đến y và đếm có bao nhiêu số như vậy/
- in ra màn hình các số chính phương m sao cho x<m<y và đếm có bao nhiê số m.
Câu hỏi 1. Nêu cú pháp câu lệnh lặp với số lần chưa biết trước? Nêu hoạt động của câu lệnh lặp?
Câu hỏi 2. Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số
lần lặp chưa biết trước.
Câu hỏi 3. Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ bao
nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật
toán đó.
a) Thuật toán 1
Bước 1. S←10, x ← 0.5
Bước 2. Nếu S nhỏ hơn hoặc bằng 5.2, chuyển tới bước 4.
Bước 3. S←S-x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2
Bước 1. S ← 10, n ← 0.
Bước 2. Nếu S nhỏ hơn hoặc bằng 10, chuyển tới bước 4.
Bước 3. n ←n + 3, S ←S-n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
C. Thực hành (Nếu không có máy tính HS có thể viết chương trình vào vở)
Viết chương trình tính tổng của số tự nhiên từ 1 đến 100 sử dụng câu lệnh....while...do...
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Bài 1. Viết chương trình nhập vào 1 dãy số a1,a2,a3 với n nhập từ bàn phím.
a) Tính tổng của các số vừa nhập.
b)Tính TBC của các số dương.
c)In ra màn hình các số nguyên tố có trong dãy.
d)Sắp xếp dãy đó theo thứ tự tăng dần.
e)Nhập vào 1 số x và kiểm tra x có suất hiện trong dãy hay không. Nêu có xuất hiện bao nhiêu lần.