viết công thức nhập vào số nguyên dương kiểm tra số vừa nhập có chia hết cho 5 hay không ( nếu có ghi yes ngược lại ghi no ) em hãy giải bài tóan trên bằng máy tí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.
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;
}
var a,b,s,p:integer;beginwrite('a=');readln(a);write('b=');readln(b);s:=a+b;p:=a*b;writeln(' Tong la: ',s);writeln(' Tich la: ',p);if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')else writeln(' Tong k chia het cho 5 va 9 ');if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')else writeln(' Tich k chia het cho 5 va 9');readln;end.
var a,b,s,p:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
s:=a+b;
p:=a*b;
writeln(' Tong la: ',s);
writeln(' Tich la: ',p);
if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')
else writeln(' Tong k chia het cho 5 va 9 ');
if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')
else writeln(' Tich k chia het cho 5 va 9');
readln;
end.
Tham khảo:
uses crt;
Var a,b,i : Integer ;
Begin
Clrscr ;
Write ('Nhap a: '); readln (a);
Write ('Nhap b: '); readln (b);
i:=a + b;
If i mod 2 = 0 then writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so chan')
Else writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so le');
Readln ;
End.
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
if (t>0) cout<<"Tong la so duong";
else if (t<0) cout<<"Tong la so am";
else cout<<"Tong la so 0";
cout<<endl;
if (t%2==0) cout<<"Tong co chia het cho 2";
else cout<<"Tong khong chia het cho 2";
return 0;
}
Input: số nguyên N
Output: N là chẵn hoặc N là lẻ
- Thuật toán liệt kê:
+ Bước 1: Nhập N
+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán
- Thuật toán sơ đồ khối:
Uses CRT;
Var n: word;
Begin
Clrscr;
write('Nhap n: '); readln(n);
if (n mod 2 = 0) and (n mod 3 = 0) then write('So do chia het cho 2 va 3')
else if (n mod 2 <>0) and (n mod 3 <> 0) then write('So do khong chia het cho 2 va 3')
else if (n mod 2 = 0) and (n mod 3 <> 0) then write('So do chia het cho 2 nhung khong chia het cho 3')
else write('So do chia het cho 3 nhung khong chia het cho 2');
readln
end.
Bài 2:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 15=0 then writeln(n,' vua chia het cho 3 vua chia het cho 5')
else writeln(n,' khong thoa man');
readln;
end.
Bài 1:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(-n)
else writeln(n+1);
readln;
end.
uses crt;
var n:longint;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if n mod 5=0 then writeln('Yes')
else writeln('No');
readln;
end.