Question

1.задание
Напишите программу которая заменяет во всей строке одну последовательность символов на другую
Введите строку:
(X > Y) and (Y < X) and (Z > Y) and (Z <> 5)
Что менаем : and
Чем заменяем : &
Результат
(X > Y) & (Y < X) & (Z > Y) & (Z <> 5)
2.задание
Напишите программу которая вычисляет сумму трех чисел введеннную в форме символьной строки. Все числа целые
Пример
Введите выражение
12+3+45
Ответ
60
3.задание
Ввести с клавиатуры символьную строку и определить сколько в ней слов. Словом считается последовательности непробельных символов отделенная с двух сторон проблемами(или стоящая с краю строки). Слова могут быть разделены несколькими пробелами в начале и в конце строки тоже могут быть пробелы
Пример
Введите строку
Вася пошёл гулять
Найдено слов : 3
​

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018

Внимание! Если программа не работает, обновите версию!

begin

var s:string; Writeln('Введите строку:'); Readln(s);

var s1:=ReadlnString('Что меняем:');

var s2:=ReadlnString('Чем заменить:');

s:=s.Replace(s1,s2);

Writeln('Результат'); Writeln(s)

end.

Пример

Введите строку:

(X > 0) and (Y < X) and (Z > Y) and (Z <> 5)

Что меняем: and

Чем заменить: &

Результат

(X > 0) & (Y < X) & (Z > Y) & (Z <> 5)