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.

20 tháng 12 2020

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.

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;

}

25 tháng 12 2020

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.

25 tháng 12 2020

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.

7 tháng 3 2022

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;

}

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.VDDữ liệu nhập vàoKết quả ra màn hình4266886633882)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.Dữ liệu nhập vào      Kết quả ra màn hìnhTYESAYESZYES1NO@NO 1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.VDDữ...
Đọc tiếp

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.

VD

Dữ liệu nhập vào

Kết quả ra màn hình

4

2

6

6

88

66

33

88

2)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.

Dữ liệu nhập vào     

Kết quả ra màn hình

T

YES

A

YES

Z

YES

1

NO

@

NO

 

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.

VD

Dữ liệu nhập vào

Kết quả ra màn hình

4

2

6

6

88

66

33

88

2)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.

Dữ liệu nhập vào     

Kết quả ra màn hình

T

YES

A

YES

Z

YES

1

NO

@

NO

 

3)     Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.

3)     Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.

0
19 tháng 10 2021

Hỏi đáp Tin học

19 tháng 10 2021

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:

 

Hỏi đáp Tin học

 

 

 

 

20 tháng 2 2022

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.