Giúp em với ạ, em cần tính chính xác để em ôn kiểm tra nhé * Đề: Viết chương trình tính tổng các số tự nhiên đầu tiên. Tính cho đến khi S > 40 thì dừng
2 câu trả lời
program oken;
uses crt;
var s,i:byte;
begin
clrscr;
i:=1; s:=0;
while s<=40 do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong S: ',s);
readln;
end.
program tinhtong;
var i,s : integer;
Begin clrscr;
s:=0; i:=1;
While s <= 40 do
begin
s:= s+i;
i:=i+1;
end;
writeln('s=',s);
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
