1. из слова "пробел" путём замены его букв получить слово "продел" 2. в данной строк вставить пробел после каждого символа. 3. дано слово. определить, одинаковы ли в нём второй и четвёртый символы.

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

 

На самом деле паскаль тут притянут за уши. пусть в первый день было отпущено х литров, тогда во второй х+250, а за два дня х+х+250 = 2560. и решаем уравнение. 2х+250 = 2560; 2x=2310; x=1155 - было отпущено в первый день. х+250 = 1155+250 = 1405 было отпущено во второй день. проверка: 1155+1405 = 2560. так мы решаем вручную. а с программы что тут сделать можно? только посчитать. x=(2560-250)/2 - первый день и х+250 - второй. var   x: real; begin   x: =(2560-250)/2;   writeln('1й день ',x, 'л.');   writeln('2й день ',x+250, 'л.') end. результат 1й день 1155л. 2й день 1405л.

Ну тут решил вводить числа не в самом коде, а через ввод с клавиатуры, т.к. мне кажется это более лучшим вариантом (но можно и сразу задать в константы x = 2560 и y = 250, дело твоё.) потом я отнимаю от общего количества 250, чтобы уровнять эти 2 дня, делю на 2 и получаю сколько отпустила за каждый день. теперь обратно добавляем ко 2 дню 250, чтобы не нарушалось условие . вывожу на экран. всё  var   day1, day2, x, y : real; begin   writeln('нефтебаза отпустила за 2 дня x л бензина.');   writeln('во второй день база отпустила на y л больше чем в первый.');   write('введите x: '); readln(x);   write('введите y: '); readln(y);   day1 : = (x - y) / 2;   day2 : = day1 + y;   writeln('за первый день было отпущено ', day1, ' литров бензина.');   write('за второй день было отпущено ', day2, ' литров бензина.'); end. вот лог программы   нефтебаза отпустила за 2 дня x л бензина.  во второй день база отпустила на y л больше чем в первый.  введите x: 2560  введите y: 250  за первый день было отпущено 1155 литров бензина.   за второй день было отпущено 1405 литров бензина.