Lời giải:
Câu 2 :
program hotrotinhoc ;
var i : integer ;
kt: boolean ;
begin
for i:= 2 to trunc(sqrt(100)) do
if 100 mod i = 0 then kt:= false ;
if kt=true then write(i);
readln
end.
viết chương trình nhập vào 1 mảng số nguyên gồm 10 phần tử xuất ra màn hình phần tử số 3 . Lm ơn giúp mik vs ạ mik cần gấp xin cảm ơn😭
Bài tập 3. Nhập vào một mảng số nguyên và in ra các phần tử là số nguyên tố có trong mảng.
- Viết các lệnh:
+ Nhập, Xuất dữ liệu
+ Khai báo biến
+ Câu lệnh điều kiện
+ Vòng lặp For.. do, While.. do
Bài 4: Viết chương trình: (Lưu bài: D:\LOP_HOTEN_BAI4.PAS)
a. Nhập một dãy số nguyên có n phần tử
b. Xuất ra màn hình dãy số vừa nhập.
c. Tính và in ra màn hình tổng của các phần tử chia hết cho 3 có trong dãy.
d. Xuất ra màn hình các phần tử là số âm.
Bài 1: Nhập từ bàn phím một dãy số nguyên ko âm. Hãy in ra màn hình chỉ số i nhỏ nhất sao cho tổng các phần tử từ 1 đến i lớn hơn 100.
Bài 2: Hãy viết chương trình Pascal để thực hiện các nhiệm vụ sau:
_ Nhập vào tù bàn phím 1 dãy số ko quá 30 số nguyên
_ Kiểm tra rồi cho biết dãy số vừa nhập có pải là dãy số ko giảm hay ko ? ( VD 1,2,5,5,6,8,9 là dãy số ko giảm )
Anh chị em bạn dì chú bác ông bà bố mẹ cậu mợ bá ơi, giúp với, cần gấp lắm, ngày kìa thi rồi.....
viết chương trình tính tổng các số tự nhiên lẻ từ 1 đến 100 với câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước
(giúp mik vs mik cần gấp!!!)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số lẻ liên tiếp đén n và in kết quả ra màn hình. 9Suwr dụng câu lệnh lặp For...do)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số chẵn liên tiếp đến n và in kết quả ra màn hình. Sử dụng câu lệnh lặp For...do)
Câu 1: Viết chương trình nhập vào số tự nhiên N (0<N<10000). In ra màn hình các yêu cầu sau:
Các ước số là số tự nhiên của N.
Các ước số là số nguyên tố của N, nếu không có ước số nguyên tố xuất ra số 0.
