Nhập vào số nIn ra các số lẻ từ 1 đến n. cứu mình pascal với...
Đọc tiếp
Nhập vào số n
In ra các số lẻ từ 1 đến n. cứu mình pascal với ạ
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
17 tháng 11 2019
uses crt;
var n,i,dem,dem1:integer;
begin
clrscr;
write('nhap n='); readln(n);
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if i mod 2=0 then inc(dem);
if i mod 2=1 then inc(dem1);
end;
writeln('so luong so chan trong day so tu 1 toi ',n,' la: ',dem);
writeln('so luong so le trong day so tu 1 toi ',n,' la: ',dem1);
readln;
end.
17 tháng 11 2019
var n,i:longint;
begin
readln(n);
if n mod 2=0 then write('chan: ',n div 2,' le: ',n div 2) else
write('chan: ',n div 2,' le: ',n div 2+1) ;
end.
20 tháng 12 2020
uses crt;
var n,i,kt,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
writeln;
writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');
for i:=0 to n do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
writeln;
writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
12 tháng 1 2022
uses crt;
var a,b,x,t,i:integer;
begin
clrscr;
readln(a,b,x);
t:=0;
for i:=a to b do
if i mod x=0 then t:=t+i;
writeln(t);
readln;
end.
VD
28 tháng 10 2021
program vdd;
uses crt;
var i,n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
for i:=1 to n do if i mod 2=1 then write(i,';');
readln
end.
ML
19 tháng 3 2023
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
20 tháng 2 2022
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
20 tháng 3 2021
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
20 tháng 3 2021
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
ML
13 tháng 3 2021
Program HOC24;
var m,n,i: integer;
t1,t2: longint;
begin
write('Nhap m;n: '); readln(m,n);
t1:=1; t2:=1;
for i:=1 to n do t1:=t1*i;
for i:=m to n do t2:=t2*i;
writeln('T1=',t1);
write('T2=',t2);
readln
end.
23 tháng 12 2021
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,97,99.
program OddNumbers;
var
n, i: integer;
begin
writeln('Nhập vào số n: ');
readln(n);
writeln('Các số lẻ từ 1 đến ', n, ' là:');
for i := 1 to n do
begin
if i mod 2 <> 0 then
writeln(i);
end;
end.