Bài 1: Có n số nguyên dương không vượt qua 1 000 000 000 chỉ chia hết cho 311 hoặc 439. Hãy viết quy trình bấm phím tìm n.
đề casio nhé
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.
Mình chỉ làm được câu b )
1990 = ( 100 + 99 ) . 10
= [ 100 + ( 100 - 1 ) ] . 10
= 1000 + 1000 - 10
= 2000 - 10
Số 19911991....1991000....000 chia hết cho 2000 ( áp dụng tính chất chia hết cho 1000 và 2 )
Tiếp đó thì số đó còn lại 19911991...1991000... chia hết cho 10 ( áp dụng tính chất chia hết cho 10 ) nên có tồn tại số có dạng 19911991 ... 000 ... 000 chia hết cho 1990
Bài 1:
uses crt;
var a:array[1..200]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] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
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;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
Bạn hỏi câu nào mà cso ƯCLN hay tìm BCNN của 3 số abc hay là các dạng toán về tìm số dư của 1 lũy thừa cho số tự nhiên ( Các dạng toán liên quan đến casio thì mình giải cho
uses crt;
var n,i,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
so thu nhat=136529
so thu 3 : 409587
so thu 2 : 273508
so thu 4; 546116
................toi so thu 7 la het