Viết chương trình pascal tính tích của n số chẵn. (n được nhập từ bán phím) gợi ý: nhập n= 7 kết quả = 48
2 câu trả lời
uses crt;
var n,i,s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=1;
for i:=1 to n do if(i mod 2=0)then s:=s*i;
write('ket qua=',s);
readln
end.
uses crt;
var i, n, t : longint;
begin
clrscr;
t := 1;
write('nhap so n : '); readln(n);
for i := 1 to n do
if i mod 2 = 0 then t := t * i;
write('tich = ', t);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
