Viết chương trình nhập vào số nguyên khác 0. Cho biết số vừa nhập là âm hay dương
2 câu trả lời
program amduong;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap so nguyen :'); readln(n);
if n>0 then writeln('n la so nguyen duong');
if n<0 then writeln('n la so nguyen am');
if n=0 then writeln('n khong phai la so nguyen duong hay nguyen am');
readln
end.
Program BTH;
uses Crt;
var a:longint;
Begin
clrscr;
Write('Nhap so can kiem tra: ');readln(a);
If a>0 then writeln('So ',a,' la so nguyen duong') else writeln('So ',a,' la so nguyen am');
readln;
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
