Question

Tính tổng các số tự nhiên từ 1 đến 10 Mong mn giúp đỡ, mk cần gấp

Answer 1

Program TONG;

uses crt;

var s,i:longint;

Begin       

clrscr;       

For i:=1 to 10 do s:=s+i; 

writeln('Tong cac so tu 1 den 10 la: ',s);

 readln;

end.

Answer 2

Các số tự nhiên lẻ nha mn

Answer 3

program Tong_cac_so_tu_nhien_le;

uses crt;

var tong, i: longint;

begin

clrscr;

for i:= 1 to 10 do

if i mod 2 <> 0 then tong:= tong + i;

write('Tong cac so le tu 1 den 10 la: ', tong);

readln;

end.

Answer 4

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.