câu 1

"Input : n

Output : Tổng = 1+2+3+...+n

Mô tả thuật toán :

Bước 1 : Nhập n

Bước 2 : Tổng ← 0 , i←1

Bước 3 : Tổng ← Tổng + i

Bước 4 : i ← i + 1

Bước 5 : Nếu i ≤n, quay lại bước 3

Bước 6 :Thông báo kết quả tổng và kết thúc thuật toán"

câu 2

program tuchon;

uses crt;

var n:integer;

begin

      clrscr;

      writeln('nhap so N:');

      readln(n);

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

      Else writeln('N la so am');

       readln;

End.

Chúc bạn học tốt ^^

câu 1

b1: nhập n

b2: cho i chạy từ 1-->n thực hiện s:=s+i;

b3: xuất kết quả

câu 2:

uses crt;

var n: integer;

begin

clrscr;

write ('nhap n: ');  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 am cung khong phai la so nguyen duong');

readln;

end.