Câu 7: Viết chương trình tính tích của các số lẻ (chẵn) trong N số tự nhiên đầu tiên khác 0? Với N là số tự nhiên được nhập vào từ bàn phím.
2 câu trả lời
Program bai_lam;
uses crt;
var a,b,G:integer;
Begin
Write('nhap gia tri cho so a');readln(a);
Write('nhap gia tri cho so b');readln(b);
G:=a*b
Write('tich cua 2 so a va b:',G)
Readln;
End.
program bai_Giai;
uses crt;
var n,i,s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=1;
for i:=1 to n do if(n mod 2=0)then s:=s*i;
write('tich cac so chan tu 1 den n la:',s);
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
