Em hãy viết chương trình pascal: nhập vào các số thực y (biểu diễn điểm của một số học sinh). Vòng lặp dừng lại khi tổng các điểm lớn hơn 355. In ra tổng điểm (sử dụng câu lệnh while…do)
giúp tui vs mai nộp rùi ToT
Em hãy viết chương trình pascal: nhập vào các số thực y (biểu diễn điểm của một số học sinh). Vòng lặp dừng lại khi tổng các điểm lớn hơn 355. In ra tổng điểm (sử dụng câu lệnh while…do)
giúp tui vs mai nộp rùi ToT
program tong_diem;
uses crt;
var y,t:real;
i:integer;
begin
clrscr;
t:=0; i:=0;
while t<=355 do
begin
i:=i+1;
write(‘Nhap diem ban thu ‘,i,’: ‘); readln(y);
t:=t+y;
end;
write(‘Ban da nhap ‘,i,’ hoc sinh va tong diem la: ‘,t:0:2);
readln;
end.
var s, y: real;
Begin
S:=0;
While s<=355 do
Begin
Write(‘nhap diem cua hoc sinh: ‘);
Readln(y); s:=s+y;
End;
Write(‘tong diem: ‘, s);
Readln
End.