Question

Viết chương trình in ra màn hình tổng các số chẵn từ 1 đến n sử dụng câu lệnh lặp với số lần chưa biết trước

Answer 1

uses crt;

var i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

i:=1;

t:=0;

while i<=n do 

begin

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

i:=i+1;

end;

write(t);

readln;

end.