Nhập vào 1 số chia hết cho 3 số
Những câu hỏi liên quan
VCT nhập vào 1 mảng số. Hãy:
a)Tính tổng các số chia hết cho 3 và 6
b)In ra các số lớn hơn 3
c) In mảng đã nhập vào
d) Đếm xem có bao nhiêu chứ số lẻ nhập vào chia hết cho 5. In đếm
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 6=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 3 va 6 la: ',t);
for i:=1 to n do
if a[i]>3 then write(a[i]:4);
writeln;
for i:=1 to n do
write(a[i]:4);
dem:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 5=0) then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;- các số chia hết cho 3 từ 1 đến n- có bao nhiêu số chia hết cho 3- tổng các số đóvd : nhập n 20. in ra - các số chia hết cho 3 : 3 6 9 12 15 18- có 6 số chia hết cho 3- tổng là ; 63Em cần gấp giúp ẹm
Đọc tiếp
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm 
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình nhập số nguyên dương X. Hãy xác định số X có chia hết cho 5 hay không?
Bài 2: Viết chương trình nhập vào số nguyên x. Kiểm tra x có chia hết cho 3 và 5 hay không?
1:
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
if (x%5==0) cout<<"Yes";
else cout<<"No";
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
if (x%15==0) cout<<"Yes";
else cout<<"No";
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số có n số, xuất ra màn hình tổng các số chia hết cho 2.
Ví dụ nhập n = 5
1 2 3 4 6
Xuất: tong cac so chia het cho 2 la: 12
Var s,n,i,so:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i)readln(so);
If so mod 2 = 0 then s:=s+so;
End;
Write('Tong cac so chan la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Program HOC24;
var i,n,t: integer;
a: array[1..32000] of integer;
begin
write('Nhap n= '); readln(n);
for i:=1 to n do if i=n then readln(a[i]) else read(a[i]);
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chia het cho 2 la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên. Tính giá trị trung bình các số dương chia hết cho 3.
var a:array[1..200] of integer;
i,n,s,dem:integer;
tb:real;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] > 0) then
begin
s:=s+a[i];
dem:=dem+1;
end;
tb:=s/dem;
write('trung binh cac so duong chia het cho 3 la ',tb:10:2)
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không?
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')
else writeln(a,' khong chia het cho 3 va 5');
readln;
end.
Đúng 1
Bình luận (0)
Program HOC24;
var a: integer;
begin
write('Nhap a : '); readln(a);
if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');
readln
end.
Đúng 1
Bình luận (0)
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va chia het cho 5')
else writeln(a,' khong chia het cho 3 va 5');
readln;
end.
Đúng 1
Bình luận (0)
Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3
Câu 1:
Uses crt;
Var a:array[1..100] of integer;
I,n,t:integer;
Begin
Clrscr;
Write('nhap n='); readln(n);
For i:=1 to n do
Begin
Write('a[',i,']='); readln(a[i]);
End;
T:=0;
For i:=1 to n do
If (a[i]>0) and (a[i] mod 3=0) then t:=t+a[i];
Writeln(t);
Readln;
End.
Đúng 1
Bình luận (0)
nhập vào 1 số từ bàn phím kiểm tra số đó có chia hết cho 3 và 4 hay không nêu thuật toán
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%12==0) cout<<"YES";
else cout<<"NO";
return 0;
}
Đúng 0
Bình luận (0)
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
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.
Đúng 0
Bình luận (0)