// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
{$reference System.Data.dll}
uses System.Data;
procedure Summ(var s: string);
begin
var o := new DataTable;
s := s.RegexReplace('\d+\+\d+', m -> o.Compute(m.Value, '').ToString)
end;
begin
var s := ReadlnString('Введите строку:');
Summ(s);
s.Println
end.
Объяснение:
1.
<u>n</u><u> - исходное число,
</u>
<u>sum</u><u> - сумма четных чисел.</u>
<u />
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
2.
<u>str </u><u>- строка;
</u>
<u>len </u><u>- количество символов в строке;
</u>
<u>let_s, let_b </u><u>- количество строчных (маленьких) и прописных (больших) букв.</u>
<u />
var
str: string;
i, len, let_b, let_s: byte;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] >= 'a') and (str[i] <= 'z') then
let_s := let_s + 1
else
if (str[i] >= 'A') and (str[i] <= 'Z') then
let_b := let_b + 1;
writeln((let_s/len)*100:5:2);
writeln((let_b/len)*100:5:2);
writeln;
end.
Var b:array [1..100000] of integer;
a,k,i,n:integer;
begin
k:=0;{обнуляем счётчик}
readln(n);{вводим количество элементов в массиве}
readln(a);{задаём число а, с которым потом будем сравнивать}
for i:=1 to n do{запускаем цикл}
begin
if (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в задаче}
k:=k+1;{при выполнении условия,увеличиваем счётчик на один}
end;
writeln(k);{выводим количество элементов, удовлетворивших условию задачи}
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Horner(Self:sequence of real;x:real):real; extensionmethod;
begin
Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;
begin
var x:=ReadReal('Укажите значение х:');
Writeln('Введите коэффициенты в порядке возрастания степеней: ');
Writeln('Результат: ',ReadArrReal(11).Reverse.Horner(x));
end.