Câu 1.Viết chương trình sử dụng câu điều kiện Nhập vào 1 số nguyên a kiểm tra xem số đó là số dương hay số âm Câu2. Viết chương trình tính tổng của d

câu 1:

uses crt;

var n: integer;

begin

clrscr;

write (‘nhap n: ‘);  readln (n);

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

if n>0 then writeln (n,’ la so duong’);

if n=0 then writeln (n,’ khong phai la so am cung khong phai la so duong’);

readln;

end.

câu 2:

uses crt;

var i,s: integer;

begin

clrscr;

for i:=1 to 100 do s:=s+i;

writeln (‘tong la: ‘,s);

readln;

end.