Question

viết chương trình tính tỗng các số tự nhiên đầu tiên cho đến khi dó bằng 10 thì dừng lại.

Cho mình bt đáp án s :D

Answer 1

Em ghi đề chính xác lại

Answer 2

đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa

Answer 3

Đáp án là 10 rồi còn gì em

Answer 4

Var i,s:integer;

Begin

i:=1;

While s<10 do

Begin

s:=s+i;

i:=i+1;

End;

Readln

End.

Answer 5

program TinhTongSoTuNhien;
var s, i: integer;
begin
  s := 0;
  i := 1;

  while s < 10 do
  begin
    s := s+ i;
    i := i + 1;
  end;

  writeln('Tong cac so tu nhien dau tien cho đen khi tong bang 10 la:', s);

  readln;
end.