câuv1 :viết chương trình tính tổng các số lẻ đầu tiên cho tới khi được tổng nhỏ nhất > 5.000 . đưa kết quả ra màn hình Câu 2: viết chương trình nhập s

0 bình luận về “câuv1 :viết chương trình tính tổng các số lẻ đầu tiên cho tới khi được tổng nhỏ nhất > 5.000 . đưa kết quả ra màn hình Câu 2: viết chương trình nhập s”

1. Câu 1:

   uses crt;
   var i,s:longint;
   begin
          clrscr;
          s:=0;i:=1;
          while s<=5000 do 
                 begin
                        if i mod 2=1 then inc(s,i);
                        inc(i);
                 end;
          write(s);
          readln;
   end.

   Câu 2:

   uses crt;
   var a:array[1..1000000] of real;
          s:extended;
          n,i:longint;
   begin
          clrscr;
          write(‘Nhap so luong hoc sinh: ‘); readln(n);
          for i:=1 to n do 
                 begin
                        write(‘Nhap diem hoc sinh thu ‘,i,’: ‘); readln(a[i]);
                        s:=s+a[i];
                 end;
          writeln(‘Diem trung binh: ‘,s/n:0:2);
          readln;
   end.

   Bình luận

2. Câu 1:

   Uses crt;

   Var S, i: longint;

   BEGIN

   Clrscr;

   S:=0;

   i:=0;

   Repeat

   Inc(i);

   If i mod 2 = 0 then S:=S+i;

   Until S>=5000

   Readln;

   Write(‘Tong la: ‘,S);

   END.

   Câu 2:

   Uses crt;

   Var A: ARRAY[1..100] OF REAL;

         i, n: integer;

         S: real;

   BEGIN

   Clrscr;

   Write(‘Nhap so hoc sinh: ‘); Readln(n);

   For i:=1 to n do

   Begin

   Write(‘Nhap diem TB mon cua hoc sinh thu ‘,i,’: ‘);

   Readln(A[i]);

   End;

   For i:=1 to n do S:=S+A[i];

   S:=S/n;

   Writeln(‘TB: ‘,S:0:4)

   Readln;

   END.

   Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!

   Bình luận