Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Chị giải theo cách khác được không ạ
Câu 1:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 4=0 then t:=t+i;
writeln(t);
readln;
end.
Câu 2:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 20 do
if i mod 3=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Câu 1. Viết chương trình tính tổng các số lẻ từ 1 đến n ( n nhập từ bàn phím).
Câu 2. Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).
help me, pls
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Trong các số từ 1 đến 1000 có bao nhiêu số.
câu a) Chia hết ít nhất cho 1 trong các số 2:3:5?
câu b) Không chia hết cho tất cả các số tự nhiên từ 2 đến 5?
a) Gọi A, B, C, D, E, G, H là tập hợp các số từ 1 đến 1000 mà theo thứ tự chia hết cho 2, chia hết cho 3, chia hết cho 5, chia hết cho 2 và 3, chia hết cho 2 và 5, chia hết cho 3 và 5, chia hết cho cả 3 số. Số phần tử của các tập hợp đó theo thứ tự bằng S1, S2, S3, S4, S5, S6, S7.
Ta có : S1 = 1000 : 2 = 500 ; S2 = [1000 : 3 ] = 333 ; S3 = 1000 : 5 = 200 ; S4 = [1000 : 6] = 166 ; S5 = 1000 : 10 = 100 ; S6 = [1000 : 15] = 66 ; S7 = [1000 : 30] = 33. Các số phải tìm gồm: S1 + S2 + S3 - S4 - S5 - S6 + S7 = 734 (số)
a) Gọi A, B, C, D, E, G, H là tập hợp các số từ 1 đến 1000 mà theo thứ tự chia hết cho 2, chia hết cho 3, chia hết cho 5, chia hết cho 2 và 3, chia hết cho 2 và 5, chia hết cho 3 và 5, chia hết cho cả 3 số. Số phần tử của các tập hợp đó theo thứ tự bằng S1, S2, S3, S4, S5, S6, S7.
Ta có : S1 = 1000 : 2 = 500 ; S2 = [1000 : 3 ] = 333 ; S3 = 1000 : 5 = 200 ; S4 = [1000 : 6] = 166 ; S5 = 1000 : 10 = 100 ; S6 = [1000 : 15] = 66 ; S7 = [1000 : 30] = 33. Các số phải tìm gồm: S1 + S2 + S3 - S4 - S5 - S6 + S7 = 734 (số)
hãy cho 1 số từ đồng nghĩa hoàn toàn và 1 số từ đồng nghĩa không hoàn toàn
và đặt câu với các từ tìm được trong từ đồng nghĩa hoàn toàn và đặt câu với các từ tìm được trong từ đồng nghĩa không hoàn toàn
Từ đồng nghĩa hoàn toàn là: quả - trái, bắp - ngô, vô - vào, thơm - khóm, kệ - giá, dương cầm - piano, máy thu thanh - radio, gan dạ - can đảm, nhà thơ - thi sĩ,...
Từ đồng nghĩa không hoàn toàn: hi sinh - mất mạng, sắp chết - lâm chung, vợ - phu nhân,...
Ví dụ:
Từ đồng nghĩa không hoàn toàn
1. Bạn Nam có một trái táo
Bạn Hương có một quả lê
2. Tôi có thể chơi đàn dương cầm
Bạn Hoa có thể chơi đàn piano
Từ đồng nghĩa không hoàn toàn
1. Anh ấy đã bị mất mạng trong 1 vụ tai nạn giao thông
Đã có rất nhiều chiến sĩ hi sinh để bảo vệ độc lập tổ quốc
2. Bác Nam và vợ của bác đều đang làm việc trên cánh đồng
Thủ tướng Trần Đại Quang và phu nhân đang về thăm quê hương
P/S: Bạn tick nhé! :)
Câu 1 : Viết chương trình ( tính tổng các số nguyên tử từ 1 đến 100. Câu 2: Viết chương trình V tính n!(n là số nguyên nhập từ bàn phím)?
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
Câu 2: Tính: 30 + 31 + 32 + … + 40 =
Câu 3:Tính: 63 + 279 + 9594 + 1 =
Câu 4:Số các số tự nhiên có hai chữ số là
Câu 6:Tổng các số tự nhiên lẻ từ 1 đến 999 bằng
Câu 7:Số phần tử của tập hợp các số có hai chữ số chia hết cho 3 là
Câu 8:Chia các số tự nhiên từ 1 đến 100 thành hai lớp: lớp số chẵn và lớp số lẻ. Như vậy tổng các chữ số của hai lớp hơn kém nhau đơn vị.
Câu 10:Bạn Hồng đánh số trang của một cuốn sách bằng các số tự nhiên từ 1 đến 256. Hỏi bạn Hồng phải viết tất cả bao nhiêu chữ số.Trả lời: chữ số.
sao bn lười vậy
những bài này có thể tự làm được mà
Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).
a) In ra các số chẵn từ 0 đến n
b) In ra các số lẽ từ 1 đến n
c) Tính tổng các số chẵn từ 0 đến n
d) Tính tổng các số lẻ từ 1 đến n
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Giúp em với ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if (i%4==0) t=t+i;
cout<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int i,dem;
int main()
{
dem=0;
for (i=1; i<=20; i++)
if ((i%2==1) and (i%3==0)) dem++;
cout<<dem;
return 0;
}
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
1).
program oken;
uses crt;
var n,i: integer;
gt: qword;
begin
write('nhap n: '): readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln('N!=',gt);
readln;
end.
2).
program tongcacsole;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 203 do
if i mod 2 = 1 then t:=t+i;
write(t);
end.
3).
program tongcacsochan;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 20 do
if i mod 2 = 0 then t:=t+i;
write(t);
end.
