viết chương trình nhập vào từ bàn phím số tự nhiên (n>1) Nếu nhập một số ngoài khoảng này, chương trình yêu cầu nhập lại cho đến khi có một số hợp lệ được nhập. Tính tổng các số chẵn đến n số tự nhiên đầu tiên
2 câu trả lời
uses crt;
var i,n,s:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
while not(n>1) do
begin
write('Nhap lai n: ');readln(n);
end;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln('Ket qua: ',s);
readln
end.