Question

Viết chương trình tính tổng 100 số lẻ tự nhiên

best công nghệ giúp mk zới

Answer 1

Mình chạy rồi và in ra kết quả là 10000 nhé UvU

Answer 2

uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.