Размер шрифта
A- A+
Межбуквенное растояние
Цвет сайта
A A A A
Изоображения
Дополнительно

Примеры решения задач

      Пример 1

Дано слово "электродинамика". Получить  из него слово "народ".

                 Решение:

Program p1;
   Var s, t: string;
 begin
  s:='электродинамика';
  t:=Copy(s, 10, 2)+Copy(s, 6, 3);
  writeln('Ответ:',t);
end.

Пример 2

Дана строка. Найти позицию буквы 'a' в данной строке.
                 Решение:
Program p1;
   Var s: string;
          k: integer;
begin
  Write('Введите строку ');
  Readln(s);
  k:=pos('a',s);
  writeln(k);
end.

Пример 3

Дана строка. Вывести на экран ее последнюю букву.

Решение:

Program p1;

   Var s: string;
          n: integer;
begin
  Write('Введите строку ');
  Readln(s);
  n:=length(s);
  writeln(s[n]);
end.

Разделы сайта