В результате выполнения данной программы будет напечатано число 5
29. На узких полосках пальмовых листьев.
30. Чернилами из сажи.
31. В листьях делали отверстия и вставляли веревочки.
34. На египетскую.
35. Тысячи.
36. Красиво и грамотно.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString('Введите строку символов:').ToCharArray;
// Теперь у нас есть исходный массив символов, а для работы нужна строка!
a:=a.JoinIntoString('').RegexReplace('\([^\(\)]+\)','').ToArray;
a.Println
end.
<u>Пример</u>
Введите строку символов: 2+3(4+1)+2(x-1)(x-2)+a
2+3+2+a
Этика - наука, изучающая нормы поведения между человека в обществе
Var
F: real;
begin
F:= 4.25;
write(trunc(F) - (F - trunc(F)));
end.