Viết chương trình cộng dồn số (1 biến được dùng để nhập số) bằng pascal với 1 biến tính tổng và khi tổng vượt quá 100 sẽ reset lại về 0

0 bình luận về “Viết chương trình cộng dồn số (1 biến được dùng để nhập số) bằng pascal với 1 biến tính tổng và khi tổng vượt quá 100 sẽ reset lại về 0”

1. var  n:real;
   s: real;
   st: string;
   begin
   writeln(‘MUON DUNG CHUONG TRINH HAY NHAN PHIM S, NGUOC LAI NHAN PHIM BAT KY’);
   s:=0;
   repeat
   while s<=100 do
   begin
   write(‘Nhap n: ‘); readln(n);
   s:=s+n;
   if s<=100 then
   writeln(‘Tong thu duoc: ‘,s:5:3)
   else writeln(‘Tong thu duoc la ‘,s:5:3, ‘ da qua 100’);
   end;
   s:=0;
   readln(st);
   until st=’S’;
   end.

   Trả lời