Viết chương trình nhập vào 2 số, kiểm tra xem số vừa nhập là số âm hay số dương và in kết quả ra màn hình

2 câu trả lời

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

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

                   else ('a la so am');

If b>0 then write('b la so duong');

                   else ('b la so am');

Readln;

End.

PROGRAM kiemtrasoamduong;

uses crt;

VAR a,b:integer;

BEGIN

clrscr;

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

write('Nhap vao b:'); readln(b);

IF a>0 THEN writeln('So am la', a);

ELSE writeln('So duong la ', a);

IF b>0 THEN writeln('So am la', b);

ELSE writeln('So duong la ', b);

readln; 

END.

Câu hỏi trong lớp Xem thêm