hãy tính tổng các số chia hết cho 2 vừa chia hết cho 3 nhập từ a,b (ngôn ngữ free pascal)
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
18 tháng 12 2020
a) n mod 3=0;
b) m mod 7<>0;
c) y<=100;
d) (a+b>c) and (b+c>a) and (a+c>b);
e) ((a>0) and (b>0)) or ((a<0) and (b<0));
f) a/b=3/4;
g) ((a>5) and (b+c=10)) or ((a<=5) and (b+c=-20));
h) (m=1) or (m=3) or (m=5) or (m=7) or (m=8);
Hôm kia
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
15 tháng 1 2023
Từ các chữ số 0;5;6;7 hãy viết tất cả các số có ba chữ số khác nhau sao cho các số đó:
A) chia hết cho 3:
Trả lời: Các số chia hết cho 3 là: 567,576,657,675,765,756,507,570,750,705.
Giải thích:
Tại vì các số sau đây có tổng các chữ số chia hết cho 3 nên chia hết cho 3.
b) vừa chia hết cho 2 vừa chia hết cho 3:
Trả lời: Các số vừa chia hết cho 2 vừa chia hết cho 3 là:576,756,570,750.
Giải thích:
Vì các số sau đây có các số tận cùng chia hết cho 2 nên chia hết cho 2 và vì các số sau đây có tổng các chữ số chia hết cho 3 nên các số này chia hết cho 3.
c) chia hết cho 9:
Trả lời: Các số chia hết cho 9 là:567,576,657,675,765,756.
Giải thích:
Vì các số sau đây có tổng các chữ số chia hết cho 9 nên chia hết cho 9.
d) vừa chia hết cho 5 vừa chia hết cho9:
Trả lời: Các số vừa chia hết cho 5 vừa chia hết cho 9 là:675,765.
Giải thích:
Vì các số sau đây có chữ số tận cùng chia hết cho 5 nên chia hết cho 5 và các số sau đây có tổng các chữ số chia hết co 9 nên chia hết cho 9.
e) vừa chia hết cho 3 mà không chia hết cho 9:
Trả lời:Các số vừa chia hết cho 3 mà không chia hết cho 9 là:507,570,750,705.
Giải thích:
Vì các số sau đây có tổng các chữ số chia hết cho 3 nên chia hết cho 3 và các số sau đây có tổng các chữ số không chia hết cho 9 nên không chia hết cho 9.
22 tháng 6 2023
#include <iostream>
int main() {
int n;
std::cout << "Nhap so tu nhien n: ";
std::cin >> n;
int sum = 0;
for (int i = 1; i <= n; i++) {
if (i % 3 == 0) {
sum += i;
}
}
std::cout << "Tong cac so tu nhien nho hon hoac bang " << n << " ma chia het cho 3 la: " << sum << std::endl;
return 0;
}
GH
22 tháng 6 2023
```c++
#include <iostream>
using namespace std;
int main() {
int n, sum = 0;
cout << "Nhap so nguyen duong n: ";
cin >> n;
for (int i = 1; i <= n; i++) {
if (i % 3 == 0) {
sum += i;
}
}
cout << "Tong cac so tu nhien nho hon hoac bang " << n << " ma chia het cho 3 la: " << sum;
return 0;
}
```
H9
HT.Phong (9A5)
CTVHS
18 tháng 3 2023
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
25 tháng 12 2023
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
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.
19 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
for i:=1 to n do
if a[i]<0 then t1:=t1+a[i];
writeln('Tong cac so am la: ',t1);
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then t2:=t2+a[i];
writeln('Tong cac so chia het cho 2 la: ',t2);
t3:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];
writeln('Tong cac so duong chia het cho 3 la: ',t3);
readln;
end.
Program Bai1;
Uses Crt;
Var a, b : integer;
Program Baitest;
Uses Crt;
Var a, b, i: integer;
Begin
Clrscr;
Write(' Ban hay nhap 1 so a bat ky: ');
Readln(a);
Write(' Ban hay nhap 1 so b bat ky: ');
Readln(b);
Write(' Cac so chia het cho 2 va 3 la: ');
Writeln;
For a:=1 to b do
if (((a+b) mod 2) = 0) and (((a+b) mod 3) = 0) then Write(' ',a+b);
Readln
End.