Tin học 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 20/07/2021 By Josie 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
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. Trả lời
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. Trả lời