Question

viết chương trình in ra màn hình từ 1 đến n, n là số nguyên dương nhập từ bàn phím

Answer 1

Program bt;

Uses crt;

Var i, n: Integer;

begin

clrscr;

Write('Nhap n='); Read(n);

For i:=1 to n do if n mod 2=0 write('cac so tu 1 den n la',i,');

Readln;

End.