vt ct cho phép tính tổng của nhiều số ( chưa bt bao nhiêu số ). Nhập 0 để kết thúc quá trình nhập
2 câu trả lời
program tong;
uses crt;
var i: byte;
so,tong: real;
begin
clrscr;
write('nhap cac so - nhap 0 de ngung'); readln;
i:=1;
repeat
clrscr;
write('nhap so thu ',i,':');
readln(so); tong:=tong+so; i:=i+1;
until so=0
write('tong la:',tong6:1);
readln
end.
Program Tong_Repeat;
uses crt;
var i: byte;
so, tong: real;
begin
write(‘NHAP CAC SO – NHAP 0 DE NGUNG ‘);
readln;
repeat
clrscr;
write(‘Nhap so thu ‘,i,’: ‘);
readln(so); tong:=tong+so; i:=i+1;
until so=0;
write(‘Tong la: ‘,tong:6:1);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
