Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 73.

Если длина строки нечетное число, то удалить среднюю букву.

{Пусть k - это длина строки, если оно нечетное, то надо удалить средний символ, а его номер равен k Div 2+1.}

program c59;
  uses ctr;
      к: integer;
      st:string;
begin
  clsscr;
  write('st= ');readln(st);
  k: =length(st);
  if k mod 2=1 then
  delete(st,k div 2+1,1);
  writeln(st);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru