Регистрация
sakulich05
27.08.2022 08:59
Информатика
Есть ответ 👍

Паскаль: 1) дана строка символов, в которой есть хотя бы вхождение 'abc'. все вхождения 'abc' заменить на 'def' 2) в заданном тексте все встретившееся буквы 'a' удалить, а буквы 'd' удвоить

200
470
Посмотреть ответы 2

Ответы на вопрос:

svesda2
svesda2
4,4(8 оценок)
1. var s: string; i: integer; begin readln(s); for i: =1 to length (s)-3 do if (s[i]='a') and (s[i+1]='b') and (s[i+2]='c') then begin   s[i]: ='d';   s[i+1]: ='e';   s[i+2]: ='f';   end; writeln (s); readln; end. 2. var s: string; i: integer; begin readln(s); for i: =1 to length (s) do if s[i]='a' then s[i]: ='d'; writeln (s); readln; end.
bceznaika2
bceznaika2
4,7(56 оценок)

1)

program p1; var x: integer; begin writeln('введите трёхзначное число'); readln(x); writeln('самая левая цифра числа: ', x div 100); end.

2)

program p2; var x,y: integer; begin writeln('введите двухзначное число'); readln(x); y: =x div 10+x mod 10; writeln('сумма цифр числа: ', y); end.

Популярно: Информатика