Bài 1:

Program hotrotinhoc;

var i,n: integer;

a: array[1..32000] of integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i],' ');

readln

end.

Bài 2:

Program hotrotinhoc;

var i,tg,j,n: integer;

a: array[1..32000] of integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do

for j:=i to n do

if a[i]<a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

for i:=1 to n do write(a[i],' ');

readln

end.

Câu 1:

uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
writeln('cac so chan nho hon hoac bang ',n,' la: ');
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln('vui long nhap lai');
readln;
end.

Câu 2:

uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln('tong cac so le nho hon hoac bang ',n,' la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.

Câu 3:

uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
writeln('cac uoc cua ',n,' la: ');
for i:=1 to n do
if n mod i=0 then write(i:4);
end
else writeln('vui long nhap lai');
readln;
end.

Câu 4:

uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
writeln('Bang cuu chuong ',n,' la:');
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end
else writeln('vui long nhap lai');
readln;
end.

1: Xác định bài toán

-Input: số 5

-Output: in ra 5 chữ O

2: Mô tả thuật toán

-Bước 1: i:=1;

-Bước 2: xuất('O');

-Bước 3: i:=i+1;

-Bước 4: Nếu i<=5 thì quay lại bước 2

-Bước 5: Kết thúc

3: Viết chương trình

uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=5 do
begin
write('O');
i:=i+1;
end;
readln;
end.

1: Xác định bài toán

-Input: số 5

-Output: in ra 5 chữ O

2: Mô tả thuật toán

-Bước 1: i:=1;

-Bước 2: xuất('O');

-Bước 3: i:=i+1;

-Bước 4: Nếu i<=5 thì quay lại bước 2

-Bước 5: Kết thúc

3: Viết chương trình

uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=5 do
begin
write('O');
i:=i+1;
end;
readln;
end.

Câu 1:

Số lần dấu '*' được in ra màn hình là:

(9-3)+1=6+1=7(lần)

Vậy: 7 là số lần dấu '*' được in ra màn hình

Câu 2:

uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.

Copy nó phải khác hihi!!!

≠Khác:

Câu 1: Số lần dấu '*' được in ra màn hình là:

(9-3)+1=6+1=7(lần)

Vậy: 7 là số lần dấu '*' được in ra màn hình

Câu 2:

uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.

var
a:array[1..1000000] of longint;
n,i:longint;
procedure xuli(n:longint);
var i:longint;s:int64;
begin
s:=0;
if n<>1 then s:=1;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
s:=s+i;
if n div i<>i then
s:=s+ n div i;
//writeln(s);
end;
if (s=n) and (s<>0) then writeln(n,' la so hoan chinh');
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
xuli(a[i]);
readln;
end.

uses crt;
var a:array[1..100]of integer;
n,i,t,j:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('vui long nhap lai')
else begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly---------------------------}
writeln('cac so hoan chinh trong day la: ');
for i:=1 to n do
begin
t:=0;
for j:=1 to a[i]-1 do
if a[i] mod j=0 then t:=t+j;
if t=a[i] then write(a[i]:4);
end;
end;
readln;
end.

uses crt;
var a:array[1..100]of integer;
n,i,min:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('vui long nhap lai')
else begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly---------------------------}
min:=a[1];
i:=1;
while i<=n do
begin
if min>a[i] then min:=a[i];
i:=i+1;
end;
writeln('so nho nhat la: ',min);
end;
readln;
end.

Bài này là tìm số nguyên x hay là nhập x vào rồi kiểm tra vậy bạn?

test cả 2 đi thanh niên