uses crt;
var i:integer;
begin
clrscr;
writeln('bang nhan 5 la: ');
for i:=1 to 9 do
writeln(5*i,' ');
readln;
end.
uses crt;
var i:integer;
begin
clrscr;
writeln('bang nhan 5 la: ');
for i:=1 to 9 do
writeln(5*i,' ');
readln;
end.
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
Giúp mình với ạ PHẦN BÀI TẬP Em hãy lập trình và hiển thị kết quả ra màn hình điểm xét tốt nghiệp THPT. Thí sinh thi 03 môn Toán, Văn và Anh văn. Tính điểm TB cộng 3 môn; điểm xét tốt nghiệp là trung bình cộng của 3 môn cùng với điểm trung bình của năm học lớp 12; Biết rằng điểm đỗ tốt nghiệp từ 5 trở lên, còn lại là trượt tốt nghiệp.
viết chương trình nhập vào mang một chiều các số thực, số lượng phần tử không quá 1000. Đưa ra màn hình số lẻ cuối cùng và chỉ số của nó trong mảng bằng chương trình pascal
Viết chương trình nhập vào 2 số nguyên dương m, n (m<n), tính T1 là tích tất cả các số trong phạm vi từ 1 đến n và T2 là tích các số lẻ trong phạm vi từ m đến n và đưa kết quả ra màn hình.
giúp em bài này với ạ, em cám ơn ạ <3
giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
viết chương trình in ra các số lẻ từ m đến n với m<n và m,n là 2 số nguyên bất kỳ nhập từ bàn phím
Câu 1: 2e^x+y/x2+y biểu thức sau viết trong pascal sẽ là ?
Câu 2: lập chương trình nhập vào số n rồi tính
S= ½+ 2/3+ ¾+….+n/n+1