Question

viết chương trình tính tổng các số tự nhiên lẻ từ 1 đến 100 với câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước

(giúp mik vs mik cần gấp!!!)

Answer 1

*Câu lệnh lặp số lần biết trước

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

*Câu lệnh lặp với số lần chưa biết trước:

uses crt;

var i,t:integer;

begin

clrscr;

i:=1; t:=0;

while i<=100 do

begin

t:=t+i;

i:=i+2;

end;

writeln(t);

readln;

end.