Паскаль abs, номер 4 и 5

Паскаль abs, номер 4 и 5

Задать свой вопрос
1 ответ

var s, s1: string;

begin

s1:='Informatika ';

writeln('Введите строчку:');  

readln(s);

insert(s1, s, 1);

writeln('Новенькая стркоа: ', s);

end.

var s:string;

i:integer;

begin

read(s);

for i:=length(s) downto 1 do

if (s[i]='а') then delete (s,i,1);

write('Новенькая строчка: ',s);

end.


Если понравилось решение - ставь 5 звезд и "Лучший ответ"!

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт