Question

ДАЮ 26 БАЛЛОВ!!!!
Program zadacha10;
Var S:string;
Begin
Writeln('Введите исходную строку');
Readln(S);
Writeln('Вы ввели строку',S);
End
2.Изменить программу так, чтобы на экран монитора после выполнения программы выходила строка, в которой все символы * будут удалены и каждый символ отличный от символа"*" будет удвоен
3.В ведённой строке имеется один символ до ";" . Изменить программу так, чтобы количество символов до ";" и после были просуммированы и выданы на экран монитора после вывода основной строки.

Answer 1

Відповідь:

Ошибка в исходной программе: отсутствует директива 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.