viết chương trình tính tông A= 1+2+3+...+n sao cho tổng A nhỏ nhất lớn hơn 700 (n được nhập vào từ bàn phím )
1 câu trả lời
program Tinhtong_DA;
uses crt;
var n:integer;
A:LongInt;
Begin
ClrScr;
A:=0; n:=0;
While A<=700 Do
Begin
n:=n+1;
A:=A+n;
End;
Writeln('So n nho nhat de tong nho nhat lon hon 700 la ',n);
Writeln('Gia tri cua tong nho nhat de tong A lon hon 700 la ',A);
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
