Program bai1;

Uses Crt;

Var i ,n : integer;

      T : real;

Begin

Clrscr;

write ('Nhap n=') ; readln(n) ;

T:= 1;

For i:= 1 to n do

T:= T * i;

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

__________________________________________________

Program bai2;

Uses Crt;

Var i ,n : integer;

      T : Longint;

Begin

Clrscr;

write ('Nhap n=') ; readln(n) ;

T:= 1;

For i:= 1 to n do

T:= T + i;

Writeln (' Tong của ' ,n,' so dau tien la' , T );

Readln;

End.

________________________________________________

Program bai3;

Uses Crt;

Var A:Aray[1..1000] of Integer;

      N,i,k,dem: Integer

Begin

Clrscr;

write ('Ban Muon Nhap Bao Nhieu Phan Tu: ') ; readln(n) ;

dem:=0;

For i:= 1 to n do

Begin

Writeln (' A[',i,']=  ');

ReadlnA[i]

End;

Write('Mang Vua Nhap La: ',A[i]);

Writeln;

Write('Cac So Chi Het Cho 3 Trong Mang La: ');

For i:= 1 to n do

Begin 

If A[i] mod 3=0 then 

dem:=dem+1

End;

Write(dem);

Readln;

End.

Hai Bài Cuối Kiểu Dữ Liệu Không Khớp Nên Mình Chưa Làm Mong Bạn Đợi Mình Mình Sẽ Cố Gửi Sớm Nhất CHo Bạn

Câu 1:

uses crt;
var n,i,s:integer;
begin
      clrscr;
      s:=0;
      write('Nhap n: '); readln(n);
      for i:=1 to n do s:=s+i;
      write('Tong: ',s);
      readln;
end.

Câu 2:

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:integer;
begin
      clrscr;
      s:=0;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  s:=s+a[i];
            end;
      write('Tong: ',s);
      readln;
end.

Câu 3:

uses crt;
var a:array[1..1000000] of longint;
      n,i,d:integer;
begin
      clrscr;
      d:=0;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 3=0 then d:=d+1;
            end;
      write('Co ',d,' so chia het cho 3');
      readln;
end.

Câu 4:

uses crt;
var a:array[1..1000000] of real;
      min:real;
      n,i:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      min:=a[1];
      for i:=2 to n do if a[i]<min then min:=a[i];
      write('Min: ',min:0:2);
      readln;
end.

Câu 5:

*Đề sai nhé bạn, s là integer mới đúng.

uses crt;
var a:array[1..1000000] of real;
      n,i,s:integer;
begin
      clrscr;
      s:=0;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=0 then s:=s+a[i];
            end;
      write('Tong cac so chan: ',s);
      readln;
end.