1:

procedure nhap(var a,b,c:real);

begin

Repeat

write('Nhap canh thu nhat:'); readln(a);

write('Nhap canh thu hai:'); readln(b);

write('Nhap canh thu ba:'); readln(c);

Until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

end;

2:

function max(var x,y:real):real;

begin

max:=x;

if max<y then max:=y;

end;

nếu thay inc(n) đầu tiên thành for i:= 1 to n do read (f1,a[n]) thì có sai ko vậy

Sai là cái chắc

1.VD thanh , thì trong thanh có chứa kí tự anh . Vậy có chuyển thành them không bạn?. Và Anh thì cũng chuyển thành em không? Bạn nêu rõ đề bài chứ. Chẳng hạn bạn cho ví dụ thì người giúp sẽ dễ dàng hơn.

2.

Program HOC24;

var s,st,st1:string;

begin

write('Nhap ho va ten : '); readln(s);

write('Ho la : ');

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

while s[1]<>#32 do

begin

write(s[1]);

delete(s,1,1);

end;

st:=s;

writeln;

write('Ten dem la :');

while s[length(s)]<>#32 do

delete(s,length(s),1);

writeln(s);

write('Ten la : ');

while st[length(st)]<>#32 do

begin

st1:=st1+st[length(st)];

delete(st,length(st),1);

end;

for i:=length(st) downto 1 do write(st1[i]);

readln

end.

Dạ mình thiếu ạ, VD anh => em, nhưng thanh thì không thành them ạ, VD như: Anh Danh ơi anh Danh, Cảm ơn bạn nhiều ạ.

uses crt;

const fi='baitap.txt';

var f1:text;

a,b:real;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('Tong cua hai so la: ',a+b:4:2);

writeln('Tich cua hai so la: ',a*b:4:2);

close(f1);

readln;

end.

uses crt;

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

i,n,t,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 la: ',min);

write('Tai vi tri thu: ');

for i:=1 to n do

if min=a[i] then write(i:4);

readln;

end.

Câu 1:

uses crt;

var s:string;

ch:char;

begin

clrscr;

write('Nhap xau S:'); readln(s);

write('Nhap ki tu:'); readln(ch);

writeln('Trong xau ',s,' co ',length(s),' ki tu');

readln;

end.

Câu 2:

uses crt;

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

n,i,k,t,ln,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=100);

for i:=1 to n do

begin

repeat

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

until a[i]<=300;

end;

write('Nhap so k='); readln(k);

writeln('Cac so be hon ',k,' trong day la:');

t:=0;

for i:=1 to n do

if a[i]<k then

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln('Tong cua cac so nho hon ',k,' trong day la: ',t);

dem:=0;

for i:=1 to n do

if a[i]<0 then

begin

inc(dem);

b[dem]:=a[i];

end;

ln:=b[1];

for i:=1 to dem do

if ln<b[i] then ln:=b[i];

writeln('So am lon nhat trong day A la: ',ln);

readln;

end.

Câu 1:

uses crt;

var st1,st2:string;

d1,d2:integer;

begin

clrscr;

write('Nhap ho ten cua nguoi thu nhat:'); readln(st1);

write('Nhap ho ten cua nguoi thu hai:'); readln(st2);

d1:=length(st1);

d2:=length(st2);

if d1>d2 then writeln(st1);

if d1=d2 then writeln(st2);

if d1<d2 then writeln(st2);

readln;

end.

Câu 2:

uses crt;
var st1,st2:string;
d2,kt:integer;
begin
clrscr;
write('Nhap xau thu nhat:'); readln(st1);
write('Nhap xau thu hai:'); readln(st2);
d2:=length(st2);
kt:=0;
if st1[1]=st2[d2] then kt:=1;
if kt=0 then writeln('Ki tu dau tien cua xau ',st1,' khong trung voi ki tu cuoi cua xau ',st2)
else writeln('Ki tu dau tien cua xau ',st1,' trung voi ki tu cuoi cua xau ',st2);
readln;
end.

const fi='songuyen.txt';

fo='ketqua.txt';

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do

if a[i]>0 then t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

đây là tìm số nguyên trong khoảng từ 1.. 100 mà

uses crt;

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

n,i:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i] mod 5=0 then write(a[i]:4);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Day so ban vua nhap la:');

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

writeln;

t:=0;

for i:=1 to n div 2 do

t:=t+a[i];

writeln('Tong cac phan tu o nua day dau la: ',t);

readln;

end.