Bài 1

Program BTT;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        If n>0 then Write(n,’ la so nguyen duong’)
        Else If n<0 then Write(n,’ la so nguyen am’)
        Else Write(n,’ khong phai la so nguyen am va duong’);
        Readln
End.

Bài 2

uses crt;
var a,b,x:real;
begin
Clrscr;
Writeln('Nhap a,b= ');
Readln(a,b);
If ((a=0 ) and (b=0)) then write('pt vo so nghiem') else if ((a=0) and (b<>0)) then write('pt vo nghiem') else
begin
x:=-b/a;
Write('pt co nghiem x=',x);
Readln;
End;
End.

Bài 1 :

program tinh;

uses crt;

var n : integer;

begin

clrscr;

write('nhap so n :');readln(n);

if n > 0 then writeln(n,'  la so khong am');

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

if n = 0 then writeln(n,' khong am khong duong');

readln

end.

Bài 2:

program tinh;
uses crt;
var a, b : integer;
begin
clrscr;
writeln('nhap he so a :');readln(a);
writeln('nhap he so b :');readln(b);
if (a = 0) and (b = 0) then writeln('phuong trinh vo so nghiem');
if (a = 0) and (b <> 0) then writeln('phuong trihn vo nghiem');
if a <> 0 then writeln('nghiem phuong trinh la x = ', (-b/a):4:2);
readln
end.