Question

viết chương trình tính tổng các số tự nhiên từ 1 đến 1100 ( có thể sử dụng cậu lệnh điều kiện và câu lệnh lặp lại )

Answer 1

uses crt;

var i:integer;

s:longint;

begin

clrscr;

s:=0;

for i:=1 to 1100 do

s:=s+i;

writeln('ket qua la: ',s);

readln;

end.

Answer 2

Uses CRT;

Var i: longint;

Tong: integer;

Begin

Clrscr;

Tong:=0;

For i:=1 to 1100 do

Tong:=tong+I;

Writeln(‘Tong cac so tu 1 den 1100 la: ‘,tong);

Readln;

End.

Mình giải rồi nha, bạn sub cho mình kênh và like, share video giúp mình nha: https://www.youtube.com/channel/UCTRZqBKW2JpVaEvCAN8CIVA

Cám ơn bạn nhiều!!! :) :) :)

Answer 3

uses crt;

var i:integer;

s:longint;

begin

clrscr;

s:=0;

for i:=1 to 1100 do

s:=s+i;

writeln('ket qua la: ',s);

readln;

end.