Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Violympic em giỏi toán
Xem chi tiết
Phạm Hải Đăng
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 1 2021 lúc 13:13

uses crt;

var a:integer;

begin

clrscr;

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

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

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

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

huynh phuong
28 tháng 2 2021 lúc 22:44

var A: integer;

begin

write('Nhap vao mot so A='); readln(A);

if A>0 then write('So A la so nguyen duong');

if A<0 then write('So A la so nguyen am');

If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');

readln;

end.

 

Minh
Xem chi tiết
Luân Đào
31 tháng 12 2020 lúc 11:53

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');

end.

Minh
Xem chi tiết
Luân Đào
31 tháng 12 2020 lúc 11:52

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');

end.

Cảnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2020 lúc 13:17

uses crt;

var a:integer;

begin

clrscr;

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

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

else if a<0 then writeln(a,' la so am')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

Thanh Hằng
22 tháng 12 2020 lúc 21:04

program soamsoduong;

uses crt;

var

a:integer;

begin

clrscr;

write('nhap vao a:');readln(a);

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

else write ('so duong la ', a)

readln; 

end.

lmao lmao lmao
Xem chi tiết
ILoveMath
7 tháng 3 2022 lúc 20:57

Tham khảo:

 

uses crt;

Var a,b,i : Integer ;

Begin

Clrscr ;

Write ('Nhap a: '); readln (a);

Write ('Nhap b: '); readln (b);

i:=a + b;

If i mod 2 = 0 then writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so chan')

Else writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so le');

Readln ;

End.

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:46

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

if (t>0) cout<<"Tong la so duong";

else if (t<0) cout<<"Tong la so am";

else cout<<"Tong la so 0";

cout<<endl;

if (t%2==0) cout<<"Tong co chia het cho 2";

else cout<<"Tong khong chia het cho 2";

return 0;

}

hung nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:44

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

}

khôi nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 8:25

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

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

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

else writeln(a,' khong la so am cung khong la so duong');

if (b<0) then writeln(b,' la so am')

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

else writeln(b,' khong la so am cung khong la so duong');

if (a>0) then writeln(sqr(a+b));

readln;

end.

Hoilamgi
Xem chi tiết

lên mạng đi bạn 

làm Pascal khó lắm