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: 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;
}
1 . trong các số từ 1 đến 1000 có bao nhiêu số:
a. chia hết cho ít nhất 1 trong các số 2 , 3,5
b.ko chia hết cho các số tự nhiên từ 2 đến 5
Cho bảng kích thước n x m. Hỏi có bao nhiêu cách điền các số -1 và 1 vào các ô trong bảng sao cho tích các số trong cùng 1 hàng và trong cùng 1 một cột bằng 1.
Cho các số : 71, 8, 0, 11
a) Hãy viết tất cả các phân số có tử số và mẫu số là các số đã cho.
b) Tìm trong đó các phân số nhỏ hơn 1
Tìm trong đó các phân số lớn hơn 1
Tìm trong đó các phân số bằng 1
a)71/18;71/11;71/8;71/71;11/11;11/71;11/8;8/71;8/11;8/8;0/11;0/8;0/71
b)nhỏ hơn 1 :0/8;0/11;0/71;8/11;8/71;11/71
lớn hơn 1: 11/8;71/8;71/11
bằng 1: 71/71;11/11;8/8
Cho các số : 71, 8, 0, 11
a) Hãy viết tất cả các phân số có tử số và mẫu số là các số đã cho.
b) Tìm trong đó các phân số nhỏ hơn 1
Tìm trong đó các phân số lớn hơn 1
Tìm trong đó các phân số bằng 1
trong 1 hộp có các tấm thẻ trong mỗi tấm thẻ đều ghi 1 trong các số 3 5 hoặc 7 bạn chi rút ra 6 tấm thẻ biết tổng của các số trên 6 tấm thẻ là 1 trong các số 16 19 26 31 41 44 tìm tổng đúng
Đáp án đúng là 26
Trong các phân số: 1 3 ; 3 5 ; 5 4 ; 7 8 ; 11 8 ; 16 17 ; 234 123 .
Các phân số lớn hơn 1 là: ..............................
Các phân số nhỏ hơn 1 là : ............................
Hướng dẫn giải:
Các phân số lớn hơn 1 là : 
Các phân số nhỏ hơn 1 là : 
Giải thích :
Phân số có tử số lớn hơn mẫu số thì lớn hơn 1; phân số có tử số bằng mẫu số thì phân số bằng 1; phân số có tử số nhỏ hơn mẫu số thì phân số nhỏ hơn 1.
Trong các phân số sau: D C
a) Các phân số lớn hơn 1 là:……………………….
b) Các phân số bé hơn 1 là:……………………….
c) Các phân số bằng 1 là:……………………….
d) Các phân số bằng 0 là:……………………….
Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:
1. Hiển thị dãy vừa nhập trên 1 hang.
2. Tính tổng các phần tử trong mảng.
3. Tính trung bình cộng các phần tử trong mảng.
4. Tính tổng các số âm và số dương trong mảng.
5. Tính tổng các số chẵn và số lẻ trong mảng.
6. Đếm các số âm, số dương, số chẵn, số lẻ trong mảng.
program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.
