1.Viết ra màn hình dòng chữ : ‘Turbo Pascal’
2.Viết ra màn hình 20 dòng chữ : ‘Turbo Pascal’
3.Viết ra màn hình dòng chữ : ‘Đây là dòng thứ : ‘, 1, ‘Turbo Pascal’ ( 20 dòng);
4.Viết ra màn hình n dòng chữ : ‘Turbo Pascal’, n nhập từ bàn phím
4.1 Nhập vào số nguyên dương n, in ra các số tự nhiên từ 1 đến n.
5.Viết ra màn hình các số từ 1-100
6.Viết ra màn hình các số từ 1-100 các số cách nhau để dẽ đọc.
7.Viết ra màn hình các số từ 1-100 theo 10 hàng mỗi hàng 10 số ( các số cách nhau để dẽ đọc).
8. Viết ra các số lẻ từ 1-100
9.Viết ra các số chẵn từ 1 đến 10000. + theo từng hàng mỗi hàng 10 số.
10.Viết ra các số lẻ từ 1 đến 10000. + theo từng hàng mỗi hàng 10 số.
11. In ra tất các số tự nhiên nằm trong khoảng từ m đến n, với m, n được nhập từ bàn phím
12*Viết ra các số lẻ từ 1 đến 10000. + theo từng hàng mỗi hàng 20 số. Dừng xem theo từng trang
màn hình.
13. Viết ra các số chia hết cho 7 nhỏ hơn 1 triệu ( For, div)
14. Viết ra các số không chia hết cho 18 và nhỏ hơn 1 tỉ.{For, mod}
15. Viết ra các số chia 13 dư 2 và trong khoảng từ 456 đến 456789.{For, Mod}
16. Viết ra tất cả các số nhỏ hơn 1 triệu thỏa mãn : chia hết cho 24 và chia 17 dư 5
17. Tìm tất cả các số nhỏ hơn 1000 thỏa mãn : Chia 5 dư 4, chia 4 dư 3, chia 3 dư 2 và chia hết
cho 17.
18. In ra tất cả các số tự nhiên từ 0 đến 1000 theo chiều giảm dần, mỗi hàng 15 số. { For…
downto…}
* In ra bảng nhân 8
* In ra bảng cửu chương từ 1 đến 10.
Các bạn giúp mình với mình còn phải nộp cho Thầy
Help!!!
Program Sara_Trang;
uses crt;
Begin
Writeln('Turbo Pascal');
Readln
End.
1: uses crt;
begin
clrscr;
writeln('turbo pascal');
readln;
end.
2: uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('turbo pascal');
readln;
end.
3:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('day la dong thu ',i,' turbo pascal');
readln;
end.
4:
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
writeln('turbo pacal');
readln;
end.
5:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i);
readln;
end.
6:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i:4);
readln;
end.
7:
uses crt;
var d,i:integer;
begin
clrscr;
d:=0;
for i:=1 to 100 do
begin
write(i:4);
inc(d);
if d mod 10=0 then writeln;
end;
readln;
end.
8:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so le trong khoang tu 1 toi 100 la: ');
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
9:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=0 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
10:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.