1.Viết chương trình in ra màn hình một dãy số theo hàng dọc từ 10 đến n (đk n>10) và n được nhập từ bàn phím. 2.Viết chương trình in ra màn hình một dãy số theo hàng ngang từ 10 đến n (đk n.10) và n được nhập từ bàn phím. 3. Dùng lệnh for...to...do viết chương trình tính S( n là số tự nhiên được nhập từ bàn phím) a) s=1+2+3+4+...+n

1.

program Tin_hoc;

uses crt;

var i,n:integer;

begin

clrscr;

writeln('Nhap n>10:');readln(n);

while n<=10 then 

begin

write('Nhap lai: ');

readln(n)

end;

writeln('In cac so tu 10 den n theo hang doc la: ');

for i:= 10 to n do writeln(i);

readln;

end.

2.

program Tin_hoc;

uses crt;

var i,n:integer;

begin

clrscr;

writeln('Nhap n>10:');readln(n);

while n<=10 then 

begin

write('Nhap lai: ');

readln(n)

end;

writeln('In cac so tu 10 den n theo hang doc la: ');

for i:= 10 to n do write(i,'   ');

readln;

end.

3.

program Tin_hoc;

uses crt;

var i,n,S:integer;

begin

clrscr;

writeln('Nhap n:');readln(n);

S:=0;

for i:= 1 to n do S:=S+i;

writeln('S=',S);

readln;

end.