1.
var
c: char;
a: string;
i: integer;
begin
writeln('Введите строку a:');
readln(a);
writeln('Введите символ с:');
readln(c);
for i:=length(a) downto 1 do
if a[i] = c then delete(a, i, 1);
writeln(a);
<span>end.
2.
var
b: string;
i, b1, b2: integer;
begin
writeln('Введите строку b:');
readln(b);
b1 := 0; b2 := 0;
for i:=1 to length(b) do
begin
if b[i] = '!' then inc(b1);
if b[i] = '?' then inc(b2);
end;
writeln('Восклицательных знаков: ', b1);
writeln('Вопросительных знаков: ', b2);
<span>end.</span></span>
Uses crt;
var
len, h : real;
day : integer;
begin len := 13;
h := 1;
clrscr;
while len > 0 do begin
len := len - h;
h := h - h * 0.05;
day := day + 1;
end;
write(day);
<span>end.</span>
Uses Crt;
const
n=15;
var
i,m1,m2,t:integer;
k:array[1..n] of integer;
begin
ClrScr;
Writeln('Укажите количество людей на каждом этаже');
for i:=1 to n do Read(k[i]);
Writeln;
{ массив получен, решаем задачу }
m1:=1; m2:=2;
if k[m2]<k[m1] then begin t:=m1; m1:=m2; m2:=t end;
for i:=3 to n do
if k[i]<k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
ReadKey
end.
**************************************************************************************
uses Crt;
const
n=10;
a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
var
i,j,t:integer;
begin
ClrScr;
t:=a[1];
i:=2;
while (i<=n) and (a[i]=t) do i:=i+1;
if i<=n then begin
Writeln('Одинаковых элементов: ', i-1);
Write('За ними следуют элементы ');
for j:=i to n do Write(a[j],' ');
Writeln
end
else Writeln('Весь массив заполнен одинаковыми элементами');
ReadKey
end.