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 3 2021

Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap vao so a ='); readln(a);

if ( a mod 2 = 0 ) then write(' a la so chan ')

else

write('a la so le ');

readln;

end.

7 tháng 3 2021

uses crt;

var a:integer;

begin

clrscr;

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

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

if a=0 then writeln(a,' la so 0');

readln;

end.

15 tháng 10 2021

tàn phai thuộc từ loại nào

16 tháng 10 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 12 2020

var a:longint;

begin

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

if a mod 2 = 0 then writeln(a,' la so chan')

else writeln(a,' la so le');

if a > 0 then write(a,' la so duong');

if a < 0 then write(a,' la so am');

if a = 0 then write(a,' khong am cung khong duong');

readln;

end.

20 tháng 4 2023

loading...  

19 tháng 4 2023

#include<bits/stdc++.h>

using namespace std;

int main(){

  int n;

  cout<<"Nhap so nguyen:";

  cin>>n;

  if(n%2==0)

    {cout<<"n la so chan"<<endl;}

  else {cout<<"n la so le"<<endl;}

  if(n==0)

    {cout<<"n khong phai la so nguyen duong va so nguyen am";}

  if(n<0)

    {cout<<"n la so nguyen am";}

  if(n>0)

    {cout<<"n la so nguyen duong";}

}

18 tháng 12 2022

Var a:integer;
Begin
Writeln('nhap mot so nguyen: '); Readln(a);
If a mod 2 = 0 then writeln(a,' la so chan')
        else writeln(a,' la so le');
End.

20 tháng 3 2023

program BangCuuChuong;
var
  N, i, j: integer;
  IsEven: boolean;
  IsPrime: boolean;
begin
  write('Nhap N (0 < N < 10): ');
  readln(N);

  // Kiểm tra N có phải số chẵn hay lẻ
  IsEven := (N mod 2 = 0);
  if IsEven then
    writeln(N, ' la so chan')
  else
    writeln(N, ' la so le');

  // Kiểm tra N có phải số nguyên tố hay không
  IsPrime := true;
  if (N < 2) then
    IsPrime := false
  else
    for i := 2 to trunc(sqrt(N)) do
      if (N mod i = 0) then
      begin
        IsPrime := false;
        break;
      end;
  if IsPrime then
    writeln(N, ' la so nguyen to')
  else
    writeln(N, ' khong la so nguyen to');

  // In ra bảng cửu chương N
  writeln('Bang cuu chuong ', N, ':');
  for i := 1 to 10 do
  begin
    j := i * N;
    writeln(N, ' x ', i, ' = ', j);
  end;

  readln;
end.

Mấy cái phần mình gạch // là giải thích phần code đó làm gì nha.

20 tháng 3 2023

Program HOC24;

var i,n,d: byte;

begin

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

writeln('Bang cuu chuong ',n,' : '); 

for i:=1 to 10 do writeln(n,' x ',i,' = ',n*i);

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

d:=0;

for i:=1 to n do if n mod i=0 then d:=d+1;

if d=2 then write(n,' la so nguyen to') else write(n,' khong phai la so nguyen to');

readln

end.

11 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n;

cin>>n;

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

else cout<<n<<" la so le"<<endl;

if (n<0) cout<<n<<" la so am";

else cout<<n<<" la so khong am";

return 0;

}

26 tháng 12 2020

a) Tổng của 50 số tự nhiên đầu tiên

Xác định bài toán: 

-Input: 50 số tự nhiên đầu tiên

-Output: Tổng của 50 số đó

Mô tả thuật toán:

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=n thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

b) Kiểm tra a là số chẵn hay số lẻ

Xác định bài toán

-Input: Số a

-Output: Kiểm tra xem a là số chẵn hay số lẻ

Mô tả thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn

không thì a là số lẻ

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