Viết chương trình in ra màn hình so n

Khách

Hãy nhập câu hỏi của bạn vào đây

Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!

Viết chương trình nhập 10 số tự nhiên bất kì từ bàn phím rồi thống kê xem chúng có bao nhiêu số chẵn, bao nhiêu số lẻ. Thực hiện in ra màn hình các số chẵn và số lẻ đó.

VD: INPUT: 5,6,9,10,20,23,7,8,13,31.

OUTPUT: + co 6 so le

+ co 4 so chan

+ cac so chan la: 6 10 20 8

+ cac so le la: 5 9 23 7 13 31

kimlien:var i，n，d:integer;

write (‘nhap n: ‘); readln (n);

writeln (‘cac uoc la: ‘);

for i:=1 to n do

if n mod i=0 then

write (i，’ ‘);

if d=5 then begin writeln d:=0; end;

kimlien:var i，n，d:integer;

write (‘nhap n: ‘); readln (n);

writeln (‘cac uoc la: ‘);

for i:=1 to n do

if n mod i=0 then

write (i，’ ‘);

if d=5 then begin writeln d:=0; end;

kimlien:var i，n，d:integer;

write (‘nhap n: ‘); readln (n);

writeln (‘cac uoc la: ‘);

for i:=1 to n do

if n mod i=0 then

write (i，’ ‘);

if d=5 then begin writeln d:=0; end;

Program BTH;uses crt;var i:byte;Begin clrscr; For i:=1 to 10 do writeln(i); 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 số n in ra màn hình các số nhỏ hơn hoặc bằng n chia hết cho 5

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ự

1. Viết chương trình in ra màn hình các số đếm từ 1 đến 20, mỗi số in trên một dòng. 2. Viết chương trình in ra màn hình các số đếm từ 20 đến 10, mỗi số in trên một dòng. 3. Viết chương trình nhập vào N số nguyên từ bàn phím. Tính và in ra màn hình tổng của các số vừa nhập vào. 4. Viết chương trình nhập vào số nguyên N từ bàn phím. In ra màn

hình các ước của N.

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.