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

int main()

{

cin>>a;

if (a%2==0) cout<<"a la so chan";

else cout<<"a la so le";

return 0;

}

18 tháng 3 2020

Từ nào là các từ khóa trong chương trình:

A. Begin, Program, Write, Uses, Read

B. Program, Var, Begin, Uses, Const, End

C. End, Read, Var, Const, program

D. Program, Begin, End, Uses, integer

18 tháng 3 2020

D

Bài tập 2: Viết chương trình nhập số b. In thông báo, 3 là ước số của b hay 3 không là ước số của b:Program CT_BtDieukien2;Uses CRT;Var b : integer; tb : string;Begin                    Clrscr;                    Write(‘Nhap b:’); readln(b);                                                           ……… b mod 3 = 0……..                    Begin                                                                                   End                    ………                   ...
Đọc tiếp

Bài tập 2: Viết chương trình nhập số b. In thông báo, 3 là ước số của b hay 3 không là ước số của b:

Program CT_BtDieukien2;

Uses CRT;

Var b : integer; tb : string;

Begin

                    Clrscr;

                    Write(‘Nhap b:’); readln(b);

                                       

                    ……… b mod 3 = 0……..

                    Begin

                                                               

                    End

                    ………

                    Begin

                                                                   

                    End;

                    Writeln(tb);

Readln;

End.

1

#include <bits/stdc++.h>

using namespace std;

long long b;

int main()

{

cin>>b;

if (b%3==0) cout<<"3 la uoc cua b";

else cout<<"3 khong la uoc cua b";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%9==0) cout<<"n la boi cua 9";

else cout<<"n khong la boi cua 9";

return 0;

}

20 tháng 10 2018

chắc có hoặc ko?

20 tháng 10 2018

ha

a)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

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

until n<100;

if n mod 2=0 then 

begin

for i:=0 to n do 

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

end

else writeln(n,' khong la so chan');

readln;

end.

b)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

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

until n<100;

if n mod 2=1 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else writeln(n,' khong la so le');

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.