Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Если 1 буква твоего имени и, то все остальные поменять на *
помоги пожааааааалуууйстаа
программу составиить
строковый тип данных
паскаль абс

Ответ оставил Гость

1. Решение для "школьников"

// PascalABC.NET 3.0, сборка 1073
var
  i,n:integer;
  s:string;
begin
  Write(Введите свое имя: ); Readln(s);
  if s[1]=И then begin
    n:=Length(s)-1;
    s:=s[1];
    for i:=1 to n do s:=s+*
  end;
  Writeln(Результат работы: ,s)
end.

Тестовое решение:
Введите свое имя: Игорь
Результат работы: И****

Введите свое имя: Сергей
Результат работы: Сергей

2. Решение, каким оно должно быть, но этому не учат

// PascalABC.NET 3.0, сборка 1073
begin
  var s:=ReadString(Введите свое имя: );
  if s[1]=И then s:=s[1]+StringOfChar(*,Length(s)-1);
  Writeln(Результат работы: ,s)
end.