Hãy đưa ra bài tập và lời giải rên pascal Có sử dụng 3 lệnh Lệnh gán Lệnh if…then lệnh write(..), readln(…) Sử dụng cả 3 lệnh nhaaa nhanh ho minh

0 bình luận về “Hãy đưa ra bài tập và lời giải rên pascal Có sử dụng 3 lệnh Lệnh gán Lệnh if…then lệnh write(..), readln(…) Sử dụng cả 3 lệnh nhaaa nhanh ho minh”

1. program baigiai;

   uses crt;

   var i,n,x,dem:integer;

   A: array[1..100] of integer;

   begin

   write(‘ nhap so phan tu co trong mang=’); readln(n);

   for i:=1 to n do

   begin

   write(‘A[‘,i,’]=’);readln(A[i]);

   end;

   for i:=1 to n do

   write(A[i]);

   write(‘nhap x=’); readln(x);

   if A[i]=x then

   dem:=dem+1;

   write(‘so phan tu bang ‘,x,’ la’,dem);

   readln; 

   end.

   Bình luận

2. Đề bài mẫu: Viết chương trình tính tổng các số chẵn từ 1 đến n (n nhập từ bàn phím).

   VCT:

   program phuongt;
   uses crt;
     var n, s, i: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          s:=0;
          for i:=1 to n do if i mod 2 = 0 then s:=s+i;
          write(‘Tong = ‘, s);
          readln
   end.

   Bình luận