1) Составить фразу "волчий аппетит" из слов "аптека", "ствол", "чайник".

+ 0 -

наилька123

23 мая 2013 г., 5:23:42 (10 лет назад)

волчий аппетит все просто ))

+ 0 -

Polinka0007

23 мая 2013 г., 8:17:33 (10 лет назад)

program e1;

const
  s1 = 'аптека';
  s2 = 'ствол';
  s3 = 'чайник';

var
  s: string;

begin
  s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' ');
  s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]);
  writeln(s)
end.

Тестовое решение:

волчий аппетит

program e2;

var
  i, n, k: integer;
  s: string;

begin
  writeln('Введите фразу, разделяя слова ровно одним пробелом');
  readln(s);
  n := length(s);
  k := 0;
  i := 1;
  while (k < 2) and (i <= n) do
  begin
    if s[i] = ' ' then k := k + 1;
    i := i + 1
  end;
  if k = 2 then writeln('Первая буква в третьем слове: ', s[i])
  else writeln('Ошибка!')
end.

Тестовое решение:

Введите фразу, разделяя слова ровно одним пробелом
Просто тестовая фраза из пяти слов
Первая буква в третьем слове: ф

+ 0 -

ариана2002

23 мая 2013 г., 10:42:34 (10 лет назад)

Комментарий удален

+ 0 -

ДвигаЙ

23 мая 2013 г., 13:38:09 (10 лет назад)

Турбо

+ 0 -

Raulrealmadrid

23 мая 2013 г., 16:10:29 (10 лет назад)

Комментарий удален

+ 0 -

неповторимая2589648

23 мая 2013 г., 16:59:33 (10 лет назад)

Не знаю

+ 0 -

Dayn

23 мая 2013 г., 19:45:10 (10 лет назад)

Комментарий удален