// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var t:=ReadlnString(':').MatchValue('\(.*\)'); Writeln(t[2:t.Length]) end.
Пример : Напечатаем только то (что в скобках) и не более! что в скобках
Пояснения. 1) Принимаем с клавиатуры текстовую строку, выделяем в ней пару круглых скобок вместе с содержимым и помещаем полученную подстроку в t. В соответствии с условием считаем без проверки, что такая пара скобок есть всегда. 2) Выделяем из содержимого t символы со второго по предпоследний (т.е. скобки не включаем) и выводим результат на экран.
Эдуардович873
10.02.2021
Исходя из самого вопроса - тут не важно само выражение функции.
1. 7 { -6, -4, -2, 0, 2, 4, 6 } Var k,n : Real; Begin n:=0; k:=-6; While k<=6 do Begin k:=k+2; n:=n+1; end; Writeln('n = ',n); end.
2. 7 { -2, -1.5, -1, -0.5, 0, 0.5, 1 } Var k,n : Real; Begin n:=0; k:=-2; While k<=1 do Begin k:=k+0.5; n:=n+1; end; Writeln('n = ',n); end.
3. 3 { -3, -1, 1 } Var k,n : Real; Begin n:=0; k:=-3; While k<=2 do Begin k:=k+2; n:=n+1; end; Writeln('n = ',n); end.
4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 } Var k,n : Real; Begin n:=0; k:=-1; While k<=2 do Begin k:=k+0.5; n:=n+1; end; Writeln('n = ',n); end.
// Внимание! Если программа не работает, обновите версию!
begin
var t:=ReadlnString(':').MatchValue('\(.*\)');
Writeln(t[2:t.Length])
end.
Пример
: Напечатаем только то (что в скобках) и не более!
что в скобках
Пояснения.
1) Принимаем с клавиатуры текстовую строку, выделяем в ней пару круглых скобок вместе с содержимым и помещаем полученную подстроку в t. В соответствии с условием считаем без проверки, что такая пара скобок есть всегда.
2) Выделяем из содержимого t символы со второго по предпоследний (т.е. скобки не включаем) и выводим результат на экран.