Em hãy giải bài tập 8 trang 51 SGK Tin học 11

0 bình luận về “Em hãy giải bài tập 8 trang 51 SGK Tin học 11”

1. program Gui_tiet_kiem;

   uses crt;

   const laisuat = 0.002;

   var tiengui, tienrutve, luu: real;

   thang : integer;

   Begin

   clrscr;

   write (‘Nhap vao so tien gui:’),

   readln(tiengui);

   luu:= tiengui;

   write(‘So tien co khi rut ve: ’);

   readln(tienrutve);

   thang : = 0 ;

   while Tiengui < tienrutve> do begin

   tiengui:= tiengui + tiengui* laisuat ; thang:= thang + 1 ;

   end;

   write(‘Gui’,luu: 0 : 0, ‘ dong, sau thang, thang’);

   writeln(‘se nhan duoc so tien’,tienrutve:0 : 0,’ dong’);

   Bình luận