Question

[Jun DeepTry]

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!!!

Answer 1

[Sara Trang]

Program Sara_Trang;

uses crt;

Begin

Writeln('Turbo Pascal');

Readln

End.

Answer 2

[Nguyễn Lê Phước Thịnh]

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.