uses crt;
var i:integer;
begin
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
uses crt;
var i:integer;
begin
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal
Viết chương trình trong Pascal sử dụng câu lệnh lặp While...do... hoặc Repeat...until... để tính tổng n số tự nhiên sao cho \(0< n\le100\). Nếu n không nằm trong khoảng này, chương trình sẽ cho nhập lại số n.
Ngoài lề tí!!
Ai viết phương trình pascal giúp em voi :((
Viết chương trình pascal
a) Nhập N nguên dương là số phần tử của dãy
b) giá trị ngẫu nhiên cho dãy, mỗi phần tử có /m[i]/ ≤ 1000
c) in dãy ban đầu ra
d) In các số chia hết cho 3 của dãy
viết một chương trình pascal in ra màn hình dòng chữ : " chao cac ban "
lm hộ nhé mik cần gấp
tin học lớp 8 bài 4
a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.
câu 1viết chương trình tính tổng của các số lẻ nhỏ hơn N với N được nhâp từ bàn phím
câu 2 viết chương trình in ra màn hình n*
câu 3 viết chương trình tính tổng của N số sao cho tổng đó lớn nhất nhỏ hơn 1000
giúp mình đi mai mk thi rồi
viết chương trình pascal cho bài toán sau : nếu a chia hết cho 2 thì in ra màn hình ' a là số chẵn ' và ngược lại 'a là số lẻ '
help !! mai nộp rùi , đây là tin hok lớp 8 nhé
1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.
2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.
3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?
Viết chương trình Pascal thực hiện yêu cầu sau:
a)Sử dụng biến mạng , nhập vào dãy số nguyên từ bàn phím ,in ra màn hình dãy số đó
b)In ra màn hình tổng của dãy số đó
viết chương trình pascal tính tổng các số từ 1 đến n, n nhập từ bàn phím, sử dụng biến mảng