ДАЮ 26 БАЛЛОВ!!!!
Program zadacha10;
Var S:string;
Begin
Writeln('Введите исходную строку');
Readln(S);
Writeln('Вы ввели строку',S);
End
2.Изменить программу так, чтобы на экран монитора после выполнения программы выходила строка, в которой все символы * будут удалены и каждый символ отличный от символа"*" будет удвоен
3.В ведённой строке имеется один символ до ";" . Изменить программу так, чтобы количество символов до ";" и после были просуммированы и выданы на экран монитора после вывода основной строки.
Ответы
Відповідь:
Ошибка в исходной программе: отсутствует директива program.
Пояснення:
program zadacha10;
var
S: string;
i: integer;
result: string;
begin
writeln('Введите исходную строку');
readln(S);
writeln('Вы ввели строку ', S);
// удаление символа *
result := '';
for i := 1 to length(S) do
if S[i] <> '*' then
result := result + S[i];
writeln('Строка без символов *: ', result);
// удвоение символов, отличных от *
result := '';
for i := 1 to length(S) do
if S[i] <> '*' then
result := result + S[i] + S[i];
writeln('Строка с удвоенными символами, отличными от *: ', result);
// подсчет количества символов до и после ;
i := pos(';', S);
if i > 0 then
begin
writeln('Количество символов до ;: ', i - 1);
writeln('Количество символов после ;: ', length(S) - i);
end;
end.