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.