Bài 1. Viết chương trình:
-Nhập vào số nguyên N.
-Xuất ra màn hình các số chẵn từ 1 đến N.
-Xuất ra màn hình các số lẻ từ 1 đến N.
Bài 2. Viết chương trình:
-Nhập vào số nguyên N.
-Xuất ra màn hình tổng các số từ 1 đến N.
-Xuất ra màn hình tích các số từ 1 đến N.
Bài 3. Viết chương trình:
-Nhập vào sốnguyên N.
-Tính tổng các số lẻ từ 1 đến N và xuất quả ra màn hình.
-Thực hiện đếm xem có bao nhiêu số lẻ từ 1 đến N và xuất kết quả ra màn hình.
Bài 4. Viết chương trình:
-Nhập vào số nguyên N.
-Tính tích các số chẵn từ 1 đến N và xuất kết quả ra màn hình.
-Thực hiện đếm xem có bao nhiêu số chẵn từ 1 đến N và xuất kết quả ra màn hình.
Bài 1. Viết chương trình: -Nhập vào số nguyên N. -Xuất ra màn hình các số chẵn từ 1 đến N. -Xuất ra màn hình các số lẻ từ 1 đến N. Bài 2. Viết chương
By Raelynn
Bài 3:
Program FNG;
Uses crt;
Var n,i,dl,sl: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
dl:=0; sl:=0;
For i:=1 to n do
If i mod 2 = 1 then
Begin
sl:=sl+i;
inc(dl);
End;
Writeln(‘1. ‘,sl);
Write(‘2. ‘,dl);
Readln
End.
Anh nhớ vote 5 sao nhé
Bài 1
Uses crt;
Var N,i:word;
Begin
Clrscr;
Write(‘n=’);
Readln(n);
For i:=1 to n do if i mod 2 = 0 then write(‘so chan la:’,i) else write(‘so le la:’,i);
Bài 2 Uses crt
; Var n,i,s,a:word;
Begin
Clrscr;
Write(‘n=’);
Readln(n);
For i:=1 to n do s:=s+i;
Write(‘tong cua cac so tu 1 den n la:’,s);
Readln;
For i:=1 to n do a:=a*i;
Write(‘tich tu 1 den n la:’,a);
Readln End.
Readln
End.
Bài 3
Uses crt;
Var n,i,dl,sl: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
dl:=0; sl:=0;
For i:=1 to n do
If i mod 2 = 1 then
Begin
sl:=sl+i;
inc(dl);
End;
Writeln(‘1. ‘,sl);
Write(‘2. ‘,dl);
Readln
End.
Bài 4