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

$#QLinkVN$

Bạn xem qua chương trình này nha!

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.