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.

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

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

else cout<<"Le";

return 0;

}

29 tháng 12 2021

Thuật toán:

B1: Nhập số nguyên n

B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.

B3. Kết thúc

Chương trình:

uses crt;

var n: integer;

begin

write('Nhap so N: '); readln(n);

if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');

29 tháng 12 2021

tks nhìu

 

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

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

else cout<<"La so le";

return 0;

}

20 tháng 12 2021

- Thuật toán chương trình:

   Bước 1: Nhập một số tự nhiên n và một biến d;

   Bước 2: Gán giá d=n mod 2;

   Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;

   Bước 4. Kết thúc thuật toán;

- Chương trình Pascal:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

- Kết quả:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

26 tháng 2 2021

Bước 1: Nhập n là số cần in ra bảng nhân của số đó

Bước 2: i←1; 

Bước 3: Nếu i>n thì kết thúc thuật toán

Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)

Bước 5: i←i+1, quay lại bước 3

Bước 1: Nhập n

Bước 2: i←1; 

Bước 3: Nếu i>n thì kết thúc thuật toán

Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)

Bước 5: i←i+1, quay lại bước 3

4 tháng 12 2016

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');

readln

end.

26 tháng 11 2016

sử dụng cấu trúc IF <điều kiện> THEN <câu lệnh>

 

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.

11 tháng 12 2021

Đề thiếu điều kiện rồi bạn

9 tháng 12 2021

program Chanle;

uses crt;

var x: integer;

begin

clrscr;

readln(x)

if (x mod 2 = 0) then write('day la so chan') else write('day la so le');

readln

end.