Tin học Lập trình pascal

Ray Kevin

Học sinh chăm học
Thành viên
2 Tháng năm 2017
462
348
81
Quảng Trị
...
Mã:
var x,dem,n:integer;
begin
   writeln('Nhap n: '); readln(n);
   x:=2; dem:=0;
   while x<=n do
   begin
      while dem<=10 do begin writeln(x,' '); x:=x+2; inc(dem); end;
      dem:=0;
   end;
   readln
end.
 
  • Like
Reactions: Hs62

Hs62

Học sinh
Thành viên
15 Tháng mười hai 2018
63
23
26
23
Đắk Lắk
TQT
Trong chương trình của bạn thì câu lệnh nào là câu lệnh xuống dòng ạ
 
Top Bottom