Viết chương trình tính tổng các số từ 1 đến 5.

2 câu trả lời

Program Hotboy;

Uses crt;

Var s,i,n: longint;

Begin

Clrscr;

S:=0;

For i:=1 to 5 do

S:=S+i;

I:=i+1;

Write('tong  la',S);

Readln

End.

uses crt;
var s,i,n: longint;
begin
   clrscr;
   s:=0;
   for i:=1 to 5 do 
   begin
      s:=s+i;
      i:=i+1;
   end;
   write('Tong la: ',s);
   readln
end.

Câu hỏi trong lớp Xem thêm
0 lượt xem
2 đáp án
1 giờ trước
0 lượt xem
2 đáp án
1 giờ trước