Viết chương trình kiểm tra một số nguyên a có phải là số chia hết cho 5 không. Nếu chia...">
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.

7 tháng 12 2021

mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.

câu 1 :

#include<iostream>

using namespace std;

int main() {

long long a;

cout << "giá trị của a: "; cin >> a;

if (a % 2 != 0 && a % 5 == 0) {

cout << "a là một số lẻ chia hết cho 5"

} else {

cout << "a không phải là một số lẻ chia hết cho 5";

}

return 0;

}

câu 2 :

#include<iostream>

using namespace std;

int main() {
int a;

cout << "giá trị của a là: "; cin >> a;

if (a % 2 == 0 && a % 5 == 0) {

cout << "a là một số chẵn chia hết cho 5";

} else {
cout << "a không phải là một số chẵn chia hết cho 5";

}

return 0;

}

(Mình viết ở ngôn ngữ C++)

for i:=1 to n do 

  if n mod i=0 then write(i:4);

Chương trình đầy đủ:

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

7 tháng 1 2022

C++: 

#include<iostream>

using namespace std;

int main() {

int n;

cin >> n;
//a)

if (n % 5 == 0) {

return true;

} else {

return false;

}

//b)

if (n > 0) {

return true;

} else {

return false;

}

return 0;

}

24 tháng 12 2022

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";

}

31 tháng 12 2022

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n>0 then writeln(n,' la so duong')

else writeln('ko la so duong');

if (n mod 2=1) and (n mod 3=0) then writeln('n la so le chia het cho 3')

else writeln('n ko la so le chia het cho 3');

readln;

end.

3 tháng 12 2016

bài 1:

var i,n : integer;

writeln('nhap n');

readln(n);

for i:=1 to 100 do

s:=s+i;

writeln('tong la",s);

readln;

end.

bài 2:

var n:real;

begin

writeln('nhap n');

if n (mod 2=0) and (n mod 3=0) then

writeln('chia het roi')

else writeln(khong chia het');

readln;

end.

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if (a mod 3=0) or (a mod 5=0) then write('co')

else writeln('khong');

readln;

end.