viết chương trình tìm tổng số tự nhiên lẽ đầu tiên nhỏ nhất lớn hơn 50
2 câu trả lời
uses crt;
var s,i:integer;
begin
clrscr; i:=1;
while s<=50 do
begin
s:=s+i;
i:=i+2;
end;
write('S la: ',s);
writeln;
write('i la: ',i);
readln
end.
uses crt;
var i,sum:longint;
begin
clrscr;
i:=1;
while i<=50 do
begin
inc(sum,i);
inc(i,2);
end;
write(sum);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
