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.
Câu 1:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=10 to n do Writeln(i,’ ‘);
Readln
End.
Câu 2
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=10 to n do Write(i,’ ‘);
Readln
End.