Viết chương trình in ra màn hình các số nguyên từ 1 đến n

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

Viết chương trình đưa ra màn hình các số nguyên lẻ từ 1 đến N , tính tổng các số nguyên lẻ

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

• Toán lớp 11
• Ngữ văn lớp 11
• Tiếng Anh lớp 11

• 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ự

Thiên Bình

print(*list([i for i in range(1,int(input('nhap n: '))+1) if i%2!=0]))

0 Trả lời · 21:51 08/02

Củ Tỏi

Hằng Nguyễn

program B1;
uses crt;
var i,S,n:integer;
begin
clrscr;
write(‘nhap so n:’);
readln(n);
i:=i;
S:=0;
while i <= n Do
begin
if i mod 2 <> 0 then
S:=S+i;
i:=i+1;
end;
writelln(‘tong so la :’);
readln;
end.

0 Trả lời · 21:53 08/02

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.

1/

Program BTH;uses crt;var i:byte;Begin        clrscr;        For i:=1 to 20 do                writeln(i);        readln;

end.

2/

Program BTH;uses crt;var i:byte;Begin        clrscr;        For i:=20 downto 10 do                writeln(i);        readln;

end.

3/

Program BTH;uses crt;var n,i,s,k:longint;Begin        clrscr;        write('Nhap n: ');readln(n);        For i:=1 to n do        Begin                write('Nhap so thu ',i,' : ');readln(k);                s:=s+k;        end;        writeln('Tong day so tren la: ',s);        readln;

end.

4/

Program BTH;uses crt;var n,i:longint;Begin        clrscr;        write('Nhap n: ');readln(n);        writeln('Uoc cua ',n,' la: ');        For i:=1 to n do        Begin                If n mod i=0 then write(i,' ');        end;        readln;

end.

Program BTH;uses crt;var i:byte;Begin        clrscr;        For i:=1 to 10 do                writeln(i);        readln;

end.