Program HOC24;
var i,j: byte;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do write('x ');
writeln;
end;
readln
end.
Program HOC24;
var i,j: byte;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do write('x ');
writeln;
end;
readln
end.
ai giải thích giúp mình câu này với ạ
giả sử x, i là hai biến kiểu integer. Xét đoạn chương trình sau
x:=2; For i:=1 to 6 do if i mod 3=0 then x:=x*i else x:=x+i; Writeln (x);
Đoạn chương trình trên sẽ in ra màn hình giá trị của x là
tin học :viết chương tirinhf nhập vào hai số tự nhiên x,y in hai số đó ra màn hình
Viết chương trình nhập vào từ bàn phím hai số nguyên dương x và n. Hãy tính x!+(x^2)!+....+(x^n)!. Pasacal
Đố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;
viết chương trình tính tổng s10= x- x2+ x3- x4+...-x10
Tick nha
1.cho đoạn chương trình sau:
tong:=2; while tong<10 do tong:=tong+1;
sau khi thực hiện xong đoạn chương trình, biến tổng có giá trị bao nhiêu
2. cho biết giá trị của X sau khi thực hiện xong đoạn ct
X:=1; Y:=2, For i:=1 to 4 do X:=X+Y;
3. giả sử A có 5 phần tử và giá trị các phần tử là 1,3,7,8,4 . khi thực hiện câu lệnh sau T:=0; For i:=1 to 5 do T:=T+A[i]; giá trị của biến T là bao nhiêu?
em cùng thảo luận và cho biết đoạn chương trình sau đây cho biết điều gì?
x:=1
while x< 10 do writeln (x)
A) In ra số thứ tự từ 1 đến 9
B)In ra các số từ 1 dến 10
c) In ra vô hạn số 1
D) Bị lỗi khi dịch chương trình
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.
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