uses crt;

var a:array[1..100]of integer;

n,i,min:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat cua day la: ',min);

writeln('Cac uoc cua no la: ');

for i:=1 to min do

if min mod i=0 then write(i:4);

readln;

end.

alo ạ, làm hộ em bài này với ạ

Ptử n<=100 thục hiện các công thức sau: a)tính tổng các ptu dương trong dãy. B)tìm phần tử có giá trị lớn nhất.

Program hotrotinhoc;

var b: array[1..100] of integer;

i,n,t: integer;

begin

write('Nhap so luong phan tu : '); readln(n);

for i:=1 to n do

begin

write('b[',i,']='); readln(b[i]);

end;

t:=0;

for i:=1 to n do

if b[i] mod 5=0 then t:=t+b[i];

write('Tong cac phan tu co gia tri chia het cho 5 trong mang B la : ',t);

readln

end.

uses crt;
var st:string;
d,i:integer;
begin
clrscr;
{---------------------------cau-a---------------------------}
write('nhap xau:'); readln(st);
{---------------------------cau-b---------------------------}
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
for i:=1 to d do
write(st[i]);
{--------------------------cau-c----------------------------}
writeln;
while pos(' ',st)>0 do
delete(st,pos(' ',st),1);
if st[1]=' 'then delete(st,1,1);
if st[d]=' 'then delete(st,d,1);
writeln('xau sau khi bien doi la: ',st);
readln;
end.

Program hotrotinhoc;

var hoa,bo,bl : integer;

begin

write('Nhap so bong hoa :',hoa);

bo:=hoa div 12;

bl:=hoa mod 12;

writeln('Co ',bo,' bo hoa');

write('Co ',bl,' bong hoa le');

readln

end.

daoham.inp daoham.out

10 12

C1 C2 C1 C2

155 43

C1 C2 C2 C1 C2 C1 C2 C2 C1 C2 C1

uses crt;
var s,st:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(s);
d:=length(s);
st:='';
for i:=1 to d do
if s[i]<>'a' then st:=st+s[i];
writeln(st);
readln;
end.

Câu 1: Bạn ghi rõ đề hơn nhé.

Câu 2:

Program hotrotinhoc;

var n,i: integer;

s: real;

begin

s:=0;

n:=0;

while n<10 do

begin

n:=n+1;

if n mod 2=1 then s:=s-(1/3*n) else s:=s+(1/3*n);

end;

write(s:1:2);

readln

end.

Câu 1:

uses crt;

var s1,s2:string[150];

begin

clrscr;

repeat

write('nhap xau s1:'); readln(s1);

write('nhap xau s2:'); readln(s2);

if length(s1)=length(s2) then writeln('nhap lai');

until length(s1)<>length(s2);

if length(s1)>length(s2) then writeln('xau ',s1,' lon hon')

else writeln('xau ',s2,' lon hon');

readln;

end.

Câu 2:

uses crt;

var st:string[50];

i,d:integer;

begin

clrscr;

write('nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do

st[i]:=upcase(st[i]);

for i:=1 to d do

write(st[i]);

readln;

end.

Câu 3:

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('nhap xau:'); readln(st);

d:=length(st);

for i:=d downto 1 do

write(st[i]);

readln;

end.

Câu 4:

uses crt;

var st:string;

begin

clrscr;

write('nhap xau:'); readln(st);

writeln('do dai cua xau la: ',length(st));

readln;

end.

End. phải dùng End; mới đúng

Câu 1: Bạn phải cho xâu S như thế nào đã chứ. Nhìn chung đoạn chương trình không mắc lỗi nào về cú pháp.

Câu 2:

Program hotrotinhoc;

var s1,s2: string;

begin

write('Nhap xau s1 :'); readln(s1);

write('Nhap xau s2 :'); readln(s2);

insert(s1,s2,1);

write('Xau s2 sau khi chen la :',s2);

readln

end.

uses crt;
var st,st1:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
st1:='';
for i:=d downto 1 do
st1:=st1+st[i];
for i:=1 to d do
if st1[i]<>' 'then write(st1[i]);
readln;
end.