Написать программку удаления половины знаков, зная, что количество символов в строке
Написать программку удаления половины знаков, зная, что количество знаков в строке - чётное. (Паскаль)
Задать свой вопрос
Хотькевич
Кирилл
Удалить просто половину? Правую либо левую?
Nika Grechanichenko
Удалить просто половину? Правую либо левую?
2 ответа
Степан Тыропов
Для удаления правой половины символов:
Var
S:string;
Begin
Write('Введите строку: ');ReadLn(S);
S:=Copy(S,1,Length(S) div 2);
WriteLn(S);
End.
Пример работы программки:
Введите строчку: 1234
12
Для удаления левой половины знаков:
Var
S:string;
Begin
Write('Введите строчку: ');ReadLn(S);
S:=Copy(S,Length(S) div 2+1, Length(S));
WriteLn(S);
End.
Пример работы программки:
Введите строчку: 1234
34
Удаление выбранной половины знаков:
Var
S:string;
A:byte;
Begin
Write('Введите строчку: ');ReadLn(S);
WriteLn('1 - удаление правой половины, 2 - удаление левой половины');
ReadLn(A);
if A = 1 then S:=Copy(S,Length(S) div 2+1, Length(S))
else S:=Copy(S,1,Length(S) div 2);
WriteLn(S);
End.
Пример работы программы:
Введите строчку: 1234567890
1 - удаление правой половины, 2 - удаление левой половины
2
12345
Var
S:string;
Begin
Write('Введите строку: ');ReadLn(S);
S:=Copy(S,1,Length(S) div 2);
WriteLn(S);
End.
Пример работы программки:
Введите строчку: 1234
12
Для удаления левой половины знаков:
Var
S:string;
Begin
Write('Введите строчку: ');ReadLn(S);
S:=Copy(S,Length(S) div 2+1, Length(S));
WriteLn(S);
End.
Пример работы программки:
Введите строчку: 1234
34
Удаление выбранной половины знаков:
Var
S:string;
A:byte;
Begin
Write('Введите строчку: ');ReadLn(S);
WriteLn('1 - удаление правой половины, 2 - удаление левой половины');
ReadLn(A);
if A = 1 then S:=Copy(S,Length(S) div 2+1, Length(S))
else S:=Copy(S,1,Length(S) div 2);
WriteLn(S);
End.
Пример работы программы:
Введите строчку: 1234567890
1 - удаление правой половины, 2 - удаление левой половины
2
12345
Олег Перфилыва
1. Современный вариант
// PascalABC.NET 3.2, сборка 1429 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s.Left(s.Length div 2);
s.Println
end.
Пример
Половину удалим!
Половину
2. Школьный вариант
var
s:string;
n:integer;
begin
Readln(s);
n:=Length(s) div 2;
Delete(s,n+1,n);
Writeln(s);
end.
// PascalABC.NET 3.2, сборка 1429 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s.Left(s.Length div 2);
s.Println
end.
Пример
Половину удалим!
Половину
2. Школьный вариант
var
s:string;
n:integer;
begin
Readln(s);
n:=Length(s) div 2;
Delete(s,n+1,n);
Writeln(s);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов