viết chương trình pascal thực hiện các yêu cầu: nhập vào từ bàn phím số nguyên dương N và M . xuất ra màn hình: dòng 1 : in ra số X và Y sao cho phân

0 bình luận về “viết chương trình pascal thực hiện các yêu cầu: nhập vào từ bàn phím số nguyên dương N và M . xuất ra màn hình: dòng 1 : in ra số X và Y sao cho phân”

1. 1)

   program bai1;

   uses crt;

   var i:integer;

   begin clrscr;

      for i:=1 to 5 do

        begin

           writeln(‘Xin chao’);

           writeln(‘Toi la Pascal’);

        end;

   readln;

   end.

   2)

   program bai2;

   uses crt;

   var S:integer;

         i:integer;

   begin clrscr;

        S:=0;

      for i:=1 to 50 do

        S:=S+i;

      write(‘Tong tu 1-50 la: ‘,S);

   readln;

   end.

   3)

   program bai3;

   uses crt;

   var T:integer;

         i:integer;

   begin clrscr;

        T:=1;

      for i:=1 to 10 do

        T:=T*i;

      write(‘Tich tu 1-10 la: ‘,T);

   readln;

   end.

   4)

   program bai4;

   uses crt;

   var S:integer;

         i:integer;

   begin clrscr;

        S:=0

      for i:=1 to 9 do

        S:=S+1/i;

      write(‘Tong day so la: ‘,S);

   readln;

   end.

   5)

   program bai5;

   uses crt;

   var S:integer;

         i:integer;

   begin clrscr;

        S:=0

      for i:=1 to 9 do

        if i mod 2<>0 then

        S:=S+1/i;

      write(‘Tong day so la: ‘,S);

   readln;

   end.

   6)

   program bai6;

   uses crt;

   var S:integer;

         i:integer;

   begin clrscr;

        S:=0

      for i:=1 to 8 do

        if i mod 2=0 then

        S:=S+1/i;

      write(‘Tong day so la: ‘,S);

   readln;

   end.

   7)

   program bai7;

   uses crt;

   var S:integer;

         i,n:integer;

   begin clrscr;

      writeln(‘Nhap 1 so n: ‘); readln(n);

        S:=0;

      for i:=1 to n do

        S:=S+i;

      write(‘Tong la: ‘,S);

   readln;

   end.

   8)

   program bai8;

   uses crt;

   var S:integer;

         i,n:integer;

   begin clrscr;

      writeln(‘Nhap 1 so n: ‘); readln(n);

        S:=0;

      for i:=1 to n do

        if i mod 2=0 then

        S:=S+i;

      write(‘Tong la: ‘,S);

   readln;

   end.

   9)

   program bai9;

   uses crt;

   var T:integer;

         i,n:integer;

   begin clrscr;

      writeln(‘Nhap 1 so n: ‘); readln(n);

        T:=1;

      for i:=1 to n do

        T:=T*i;

      write(‘n! la: ‘,T);

   readln;

   end.

   10)

   program bai10;

   uses crt;

   var S:integer;

         i,n,m:integer;

   begin clrscr;

      writeln(‘Nhap  n va m: ‘); readln(n,m);

        S:=0;

      for i:=n to m do

        S:=S+i;

      write(‘Tong la: ‘,S);

   readln;

   end.

   11)

   program bai11;

   uses crt;

   var S:integer;

         i,n:integer;

   begin clrscr;

      writeln(‘Nhap 1 so n: ‘); readln(n);

        S:=0;

      for i:=1 to n do

        S:=S+i*i;

      write(‘Tong la: ‘,S);

   readln;

   end.

   12)

   program bai12;

   uses crt;

   var b:integer;

         i,n,B:integer;

   begin clrscr;

      writeln(‘Nhap so n va B: ‘); readln(n,B);

        b:=0;

      for i:=B to n do

        if i mod B=0 then

      write(‘Boi cua B la: ‘,b);

   readln;

   end.

   13)

   program ct;

   uses crt;

   var C,i:integer;

         S:longint;

   begin clrscr;

      write(‘Nhap so C: ‘); readln(C);

        S:=0;

      for i:=1 to (C-1) do

        if (C mod i=0) then S:=S+i;

      if S=C then writeln(C,’ la so hoan hao’)

   else writeln(C,’ khong phai la so hoan hao’);

   readln;

   end.

   Học tốt!

   Bình luận