viết các số lẻ và chẵn từ 0 đến 30
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.
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.
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.
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.
{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN
clrscr;
Write('Nhap n:');Readln(n);
C:=0;L:=0;
For i:=1 to n do
If i mod 2=0 then C:=C+i else L:=L+i;
writeln('Tong cac so chan la:',C);
writeln ('Tong cac so le la:',L);
Readln;
end.
}
+ Tập hợp D = {21 ; 23 ; 25 ;……. ; 99} là tập hợp các số lẻ từ 21 đến 99
Nên D có (99 – 21) : 2 + 1 = 78 : 2 + 1 = 39 + 1 = 40 (phần tử).
+ Tập hợp E = {32 ; 34 ; 36 ; … ; 96} là tập hợp các số chẵn từ 32 đến 96
Nên E có (96 – 32) : 2 + 1 = 64 : 2 + 1 = 32 + 1 = 33 (phần tử).
Chẵn : 0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30
Lẻ: 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29
chẵn: 0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30
lẻ:1,3,5,7,9,11,13,15,17,19,21,23,25,27,29