uses crt; var x:integer; begin clrscr; x:=0; while x*x*x<=3000 do begin write(x:4); x:=x+1; end; readln; end.
Đúng 2
Bình luận (0)
Bài 6: Phép toán, biểu thức, câu lệnh gán
Các câu hỏi tương tự
Viết chương trình tìm n để An >=100. Với A là một số nguyên được nhập từ bàn phím.
1. viết chương trình nhập vào 4 số nguyên a, b, c, d .Tính tích và trung bình cộng của 4 số này
2. viết chương trình nhập vào 3 cạnh của 1 hình tam giác. Tính chu vi và diện tích của tam giác đó
3. viết chương trình nhập vào dộ cao của 1 vật. Tính vận tốc rơi tự do của vật đó
Viết chương trình nhập vào hai số nguyên dương
Tìm trung bình cộng của chúng
Tìm trong số đó có bao nhiêu số là bội số của số kia
Xem chi tiết
Viết chương trình nhập vào hai số nguyên dương
Tìm trung bình cộng của chúng
Tìm trong số đó có bao nhiêu số là bội số của số kia
Xem chi tiết
cho dãy a gồm N số nguyên . Viết chương trình tính và đưa ra màn hình tổng các số vừa chia hết cho 2 vừa chia hết cho 3
Viết chương trình nhập vào hai cạnh vuông của một tam giác vuông. Sau đó tính diện tích và cạnh huyền của tam giác.kết quả trả về lấy 2 chữ số sau phần thập phân.
Viết khai báo cho chương trình, nhập hai số thực từ bàn phím. Tính tổng của 2 số đó, nếu số thứ nhất lớn hơn số thứ 2, ngược lại thì tính tích của 2 số đó.
Viết chương trình giải phương trình bậc nhất ax + b = 0
xét chương trình sau?
Var a, b: integer;
Begin
a:=102;
write('b'); readln(b);
if a<b then write('Xin chao cac ban!');
end.
nhập giá trị cho b bao nhiêu để khi chạy chương trình nhận được kết quả 'Xin chao cac ban!'?