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.

21 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"YES";

else cout<<"NO";

return 0;

}

Bài 1:

Input: Số n

Output: Kiểm tra xem n có chia hết cho 5 ko

Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: Nếu n chia hết cho 5 thì xuất ra có

không thì không

Bước 3: Kết thúc

Viết ct:

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 5=0 then write('yes')

else write('no');

readln;

end.

11 tháng 4 2022

.

11 tháng 4 2022

.

6 tháng 4 2023

Bài 1:

Program HOC24;

var a: array[1..1000] of integer;

i,n,d: integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

6 tháng 4 2023

Bài 2:

Program HOC24;

var a: array[1..1000] of integer;

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];

write(Tong la: ',t);

readln

end.

1 tháng 10 2018

s:real;

a,h:Integer;

c:Integer;

20 tháng 11 2021

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%6==0) t+=i;

cout<<t;

return 0;

}

1:

uses crt;

var i,j,t,kt:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do 

  if i>1 then 

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln(t);

readln;

end.

Câu 2: 

*Viết chương trình:

uses crt;

var n,p,t:integer;

begin

clrscr;

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

t:=0;

for p:=2 to n-1 do 

  if n mod p=0 then t:=t+p;

writeln('Tong cac uoc that su cua ',n,' la: ',t);

readln;

end.

8 tháng 2 2022

t ko bt lm, ms k10