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

Ответы

Алёна1478бе 03.09.2020 09:02

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)

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

85kurganova85 05.02.2021 10:06

KNV1980G 27.12.2019 18:29

margarinchik2008 27.12.2019 20:14

beliaeva201 27.12.2019 20:12

NastyaPaz 27.12.2019 19:46

arsenboosss757 28.02.2021 16:40

gasymov1974 28.02.2021 16:39

sodemAN2 02.12.2020 16:07

муксик 30.08.2019 10:30

Zhenechka12332145 12.05.2019 22:09