Pascal: SOLUTIONS BÀI TẬP 4

Program In_So_Le;

uses crt;

var i,n:integer;

begin

      clrscr;

      Repeat

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

      until n>0;

      i:=1;

      while i<=n do

      begin

           write(i:3,', ');

           i:=i+2;

      end;

      readln

end.

Program Giai_Thua_while;

uses crt;

var n, gt:longint;

begin

     clrscr;

     Repeat

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

     until n>0;

     gt:=1;

     while n>0 do

     begin

     gt:=gt*n;

     n:=n-1;

     end;

     writeln('Giai thua cua n la: ',gt);

     readln

end.

Program  Giai_thua_kep;

uses crt;

var n,gt:longint;

begin

    Repeat

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

    until n>0;

    gt:=1;

    while n>0 do

    begin

    gt:=gt*n;

    n:=n-2;

    end;

    write('Giai thua la: ',gt);

    readln

end.

Program Tong_Repeat;

uses crt;

var i: byte;

    so, tong: real;

begin

     write('NHAP CAC SO - NHAP 0 DE NGUNG ');

     readln;

     repeat

     clrscr;

     write('Nhap so thu ',i,': ');

     readln(so); tong:=tong+so; i:=i+1;

     until so=0;

     write('Tong la: ',tong:6:1);

     readln

end.

Program UCLN;

uses crt;

var a,b,r:byte;

begin

     clrscr;

     writeln('CHUONG TRINH TIM UCLN CUA HAI SO');

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

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

     r:=a mod b;

     while r<> 0 do

     begin

         b:=r;

         a:=b;

         r:=a mod b;

     end;

     write('UCLN cua hai so la: ',b);

     readln

end.

Program Fi_Bo_na_xi;

Var n, F_2,F_1, F: Longint;

Begin

    Write('Nhap n: ');Readln(n);

    F_1:=1; F_2:=1;

    Write(F_2,';',F_1,';');

    Repeat

    F:=F_2+F_1;

    if F< n then Write(F,';');

    F_2:=F_1; F_1:=F;

    Until F>n;

    Readln;

End.