если 1 буква твоего имени и, то все остальные поменять на *
помоги пожааааааалуууйстаа
программу составиить
строковый тип данных
паскаль абс
Ответы
Ответ дал:
0
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.
// 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.
Ответ дал:
0
2) если имя будет длиной в 10 символов и 10-тый символ А, то s[10] будет А?
Ответ дал:
0
А причем тут 10-й или еще какой-то? Мы смотрим первый, если он "И" =- все остальные, сколько бы их не было, меняем на звездочки. А Если не "И" - вообще ничего не делаем.
Ответ дал:
0
если бы спрашивалось какой 10тый символ в предложении то он записывался бы как s[10]?
Ответ дал:
0
Да, конечно.
Вас заинтересует
6 лет назад
9 лет назад
9 лет назад
9 лет назад