Question

Viết chương trình nhập một số khác không từ bàn phím và thông báo ra màn hình số vừa nhập là số dương hay số âm?

Answer 1

uses crt;

var n:integer;

begin

clrscr;

writeln('nhap vao mot so bat ki la');readln(n);

if n>0 then writeln('day la so duong')

else writeln('day la so am');readln;end.

Answer 2

uses crt;

var n:integer;

begin

clrscr;

repeat

writeln('nhap vao mot so bat ki la');readln(n);

until n<>0;

if n>0 then writeln('day la so duong')

else writeln('day la so am');readln;end.