program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
  clrscr;
  write('nhap S:');readln(s);
  while pos('C',s)<>0 do
  begin
    insert('LOP11A',s,pos('C',s));
    delete(s,pos('C',s),1);
  end;
  writeln('xau sau khi bien doi la: ',s);
  writeln('do dai cua xau tren la: ',length(s));
  write('nhap s1:');readln(s1);
  if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
  else writeln('ki tu dau cua hai xau khong trung nhau');
  readln;
end.

program max;

uses crt;

var i,n,max:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

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

end;

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Câu 1:

program bai1;
uses crt;
var i,d:integer;
a:array[1..100]of integer;
begin
  clrscr;
  i:=1;
  write('a[',i,']=');readln(a[i]);
  repeat
    inc(i);
    write('a[',i,']=');readln(a[i]);
  until a[i]<=0;
  d:=i;
  writeln('cac so da nhap la:');
  for i:=1 to d do
  write(a[i]:3);  
  readln;
end.

Câu 2:

program bai2;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
begin
  clrscr;
  write('nhap so phan tu cua day so:');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');readln(a[i]);
  end;
  writeln('cac so le trong day la:');
  for i:=1 to n do
  if a[i] mod 2<>0 then write(a[i]:3);
  readln;
end.

Câu 3:

program bai3;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
t:longint;
begin
  clrscr;
  write('nhap so phan tu cua day so:');readln(n);
  t:=0;
  for i:=1 to n do
  begin
    write('a[',i,']=');readln(a[i]);
    if a[i] mod 2=0 then t:=t+a[i];
  end;
  writeln('tong cac phan tu chan cua day la: ',t);
  readln;
end.

program bai1;
uses crt;
var i,j,n,x,y:integer;
a:array[0..100,0..100] of integer;
f,g:text;
procedure dequy;
begin
  if i=n*n then exit;
  if(x>1)and(y<n)and(a[x-1,y+1]=0)and(i<n*n)then
  begin
    x:=x-1;
    y:=y+1;
    i:=i+1;
    a[x,y]:=i;
    dequy;
  end;
  if(y=n)and(x>1)and(i<n*n)then
  begin
    x:=x-1;y:=1;i:=i+1;a[x,y]:=i;dequy;
  end;
  if(x=1)and(i mod n<>0)and(i<n*n)then
  begin
    x:=n;y:=y+1;i:=i+1;a[x,y]:=i;dequy;
  end;
  if(i mod n=0)and(i<n*n)then
  begin
    if(y+2<=n)then
    begin
      y:=y+2;
      i:=i+1;
      a[x,y]:=i;
      dequy;
    end
    else
    begin
      y:=(y+2)-n;
      i:=i+1;
      a[x,y]:=i;
      dequy;
    end;
  end;
end;
begin
  assign(f,'maphuong.inp');reset(f);
  assign(g,'maphuong.out');rewrite(g);
  readln(f,n);
  x:=n div 2+1;y:=n-n div 2+1;i:=1;
  a[x,y]:=1;
  dequy;
  for i:=1 to n do
  begin
    for j:=1 to n do
    write(g,a[i,j]:3);
    writeln(g);
  end;
  close(f);
  close(g);
end.

D

pascal nha mọi người

Bài 1 : MẬT KHẨU.
Cu Tí thường xuyên tham gia thi lập trình trên mạng. Vì đạt được thành tích cao nên
Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một
mã số là một dãy gồm các bộ ba chữ số ngăn cách nhau bởi dấu chấm và có chiều dài không
quá 255 (kể cả chữ số và dấu chấm). Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu
của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị
các bộ ba chữ số trong dãy mã số, các bộ ba này được đọc từ phải sang trái.
-          Yêu cầu: Cho biết mã số của phần mềm, hãy tìm mật khẩu của phần mềm đó.
-          Dữ liệu vào: Cho từ tệp văn bản có tên MATKHAU.INPgồm một dòng chứa
xâu ký tự S (độ dài xâu không quá 255 ký tự) là mã số của phần mềm.
-          Kết quả: Ghi ra tệp văn bản có tên MATKHAU.OUTgồm một số nguyên là mật
khẩu tìm được.

program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
  clrscr;
  repeat
    write('nhap n:');readln(n);
    if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
  until (n>0)and(n<10000);
  writeln('cac uoc so la so tu nhien cua ',n,' la:');
  for i:=1 to n do
  if n mod i=0 then write(i,'    ');
  writeln;
  dem:=0;
  for i:=2 to n do
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then inc(dem);
  end;
  if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then write(i,'    ');
  end;
  if dem=0 then write(0);
  readln;
end.

program tim_dien_tich;

uses crt;

var a1,a2,b1,b2,x1,x2,i,dem:longint;

dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;

x3:array[1..1000]of longint;

dt:array[1..1000]of real;

begin

  clrscr;

  write('nhap chieu dai va chieu rong:');readln(a1,b1);

  a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2;

  x1:=0;i:=0;dem:=0;

  writeln(dt2:5:1);

  writeln(x1);

  while x1<b1 do

  begin

    dt3:=a2*x1/2;

    dt4:=(b2-x1)*x1/2;

    dt5:=b2*(a2-x1)/2;

    dt6:=dt1-dt3-dt4-dt5;

    dt[i]:=dt6;x3[i]:=x1;

    x1:=x1+1;i:=i+1;dem:=dem+1;

  end;

  dtnn:=dt[1];

  for i:=1 to dem do

  begin

    if (dtnn>dt[i])and(dt[i]<>0) then dtnn:=dt[i];

  end;

  writeln(dtnn:5:1);

  for i:=1 to dem do

  if dtnn=dt[i] then writeln(x3[i]);

  readln;

end.