Viết chương trình sử dụng lệnh lập để tính tổng các số thực các số thực được nhập từ bàn phím viết kính chống dừng lại khi tổng lớn hơn 55

0 bình luận về “Viết chương trình sử dụng lệnh lập để tính tổng các số thực các số thực được nhập từ bàn phím viết kính chống dừng lại khi tổng lớn hơn 55”

1. program tong_lon;

   uses crt;

   var S,so:real;

         n:integer;

   begin

          clrscr;

          write(‘Nhap so thu 1: ‘);  readln(so);

          n:=1;  S:=so;

          while s<=55 do

                 begin

                        n:=n+1;

                        write(‘Nhap so thu ‘,n,’: ‘);  readln(so);

                        S:=S+so;

                 end;

          write(‘Tong la: ‘,s:0:3,’ va ban da nhap ‘,n,’ so’);

          readln;

   end.

   Bình luận

2. uses crt;

   var i,s: real;

   begin

   clrscr;

   repeat

   i:=i+1;

   write (‘nhap so thu ‘,i,’: ‘);  readln (i);

   s:=s+i;

   until s>55;

   writeln (‘tong la: ‘,s:1:3);

   readln;

   end.

   Bình luận