Bt3 viết ct nhập số nguyên n in ra màn hình các số từ 1 n các số chẵn từ 1 n

1.1. Tính tổng các số chẵn trong khoảng từ 1 đến n (với n là số tự nhiên được nhập từ bàn phím).

Program Tong_chan;

Uses crt;

Var i,n,tong:integer;

begin

clrscr;

write('Nhap vao n ='); readln(n);

Tong:=0;

for i:=1 to n do

if i mod 2=0 then tong:=tong+i;

Write('Tong cac so chan la:', tong);

readln

end.

2.2. Tính tổng các số lẻ trong khoảng từ 1 đến n (với n là số tự nhiên được nhập từ bàn phím).

Program Tong_le;

Uses crt;

Var i,n,tong:integer;

begin

clrscr;

write('Nhap vao n ='); readln(n);

tong:=0;

for i:=1 to n do

if i mod 2<>0 then tong:=tong+i;

Write('Tong cac so le la:', tong);

readln

end.

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

viết chương trình nhập vào 1 số nguyên n, in ra màn hình thông báo có bao nhiêu số chẵn từ 1 đến n, in ra các số chẵn

Các câu hỏi tương tự

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Viết chương trình và in ra màn hình các số chẵn từ 1 đến n , n là số tự nhiên nhập từ bàn phím.

Các câu hỏi tương tự

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

bài 1:

uses crt;var     n,i,j:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        write(‘so chan tu 1->n la:’);        for i:=1 to n do        if i mod 2=0 then write(i,’ ‘);        writeln;        write(‘so le tu 1->n la:’);        for j:=1 to n do        if j mod 2<>0 then write(j,’ ‘);        readln;

end.

bài 2:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        s1:=1;        s:=0;        write(‘tong cac so tu 1->n la:’);        for i:=1 to n do s:=s+i;        write(s);        writeln;        write(‘tich cac so tu 1->n la:’);        for j:=1 to n do s1:=s1*j;        write(s1);        readln;

end.

bài 3:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        s1:=0;        s:=0;        for i:=1 to n do        if i mod 2<>0 then s:=s+i;        write(‘tong cac so le tu 1->n la:’,s);        writeln;        for j:=1 to n do        if j mod 2<>0 then inc(s1);        write(‘co tat ca ‘,s1,’ so le’);        readln;

end.

bài 4:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        s1:=0;        s:=1;        for i:=1 to n do        if i mod 2=0 then s:=s*i;        write(‘tich cac so chan tu 1->n la:’,s);        writeln;        for j:=1 to n do        if j mod 2=0 then inc(s1);        write(‘co tat ca ‘,s1,’ so chan’);        readln;

end.