Нашел раз Системный блок небольшой дом. Залез в него и стал там жить. Пришла мышь и спрашивает:"Кто в теремке живет?"Системный блок ответил:"Я здесь живу, заходи вместе жить будем".Жили они хорошо.Пришел модем, спросил:"Кто в теремке живет?" А ему отвечают:"Мы, системный блок и мышь, заходи к нам."Стали вместе жить.Пришла клавиатура и спросила:"Кто тут живет?"Ей ответили:" Мы, системный блок, мышь и модем, заходи к нам." Стали вместе жить.Пришел монитор, спросил:"Кто здесь живет? "А ему ответили:"Нет места".Залез монитор на дом-теремок и стал там жить. Так появился компьютер. (домик-стол компьютерный)
1)
var
s: string;
i: integer;
begin
writeln('Введите слово');
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then s[i]:= ' ';
writeln('Полученная строка: ', s);
end.
2)
var
s: string; {Программа определяет только английские буквы x или e, т.к. в задании указаны английские буквы}
i: integer;
xchar, echar: integer;
begin
writeln('Введите строку');
readln(s);
for i:= 1 to length(s) do
begin
if s[i] = 'x' then xchar:= i;
if s[i] = 'e' then echar:= i;
end;
if xchar < echar then writeln('буква "x" встретилась раньше');
if echar < xchar then writeln('буква "e" встретилась раньше');
if (echar = 0) or (xchar = 0) then writeln('одна из букв "x" или "e" не встретилась');
end.
3-е задание вообще непонятно. Произведение каких цифр описать содержание задания подробнее.