Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var ch,d:char;
i,max:integer;
s:string;
a:array['A'..'Z']of integer;
begin
write('nhap xau:');readln(s);
for ch:='A'to'Z' do a[ch]:=0;
for i:=1 to length(s) do begin
s[i]:=upcase(s[i]);
a[s[i]]:=a[s[i]]+1;
end;
max:=a['A'];
for ch:='A'to'Z' do
if a[ch]>max then begin
max:=a[ch];
d:=ch;
end;
writeln('ki tu ',d,' xuat hien nhieu nhat:',max);
readln
end.
program xoa_ky_tu;
uses crt;
var x,y:string;
i,j,dem,max: integer;
a:char;
BEGIN
clrscr;
write('nhap xau x : ');
readln(x);
y:=x;
for i:=1 to length(x) do
begin
j:=i+1;
repeat
if x[i]=x[j] then delete(x,j,1)
else
j:=j+1;
until (j>length(x));
end;
writeln('xau sau khi loai bo ki tu giong nhau la :',x);
max:=0;
a:=' ';
for i:=1 to length(x) do
begin
dem:=0;
for j:=1 to length(y) do
if x[i]=y[j] then
dem:=dem+1;
if dem>max then
begin
max:=dem;
a:=x[i];
end;
end;
writeln('ki tu ',a,' xuat hien ',max,' lan');
readln;
end.
program Iza_dang_cap;
uses crt;
var n,i: integer;
A:array[1..100] of integer;
begin
clrscr;
writeln('nhap cac phan tu cua day');
for i:=1 to n do write(A[i]);
writeln('cac phan tu cua day so la: ' )
for i:=1 to n do write(A[i],' ');
readln
end.
p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~
uses crt;
var j,i:longint;
b,a:int64;
begin
clrscr;
writeln('nhap tu va mau');readln(a,b);
if b=0 then writeln('day ko la phan so') else begin
for i:=1 to a do
for j:=1 to b do
if (a mod i=0)and(b mod j=0)and(i=j) then begin
a:=a div i;
b:=b div j;
end;
for i:=1 to a do
for j:=1 to b do
if (a mod i=0)and(b mod j=0)and(i=j) then begin
a:=a div i;
b:=b div j;
end;
end;
if a mod b=0 then writeln('ket qua sau khi rut gon la ',a div b)
else writeln('ket qua sau khi rut gon la ',a,'/',b);
readln
end.
program rutgon;
var a,b,m,R,n:int64;
begin
write('nhap so tu nhien m:');
readln(m)
; write('nhap so tu nhien n:');
readln(n);
a:=n;
b:=m;
while b<>0 do begin
R:=a mod b;
a:=b;
b:=R;
end;
write('phan so da duoc rut gon la:',m/a:0:0,'/',n/a:0:0);
readln;
end.
Nhanh-gọn-dễ hiểu