Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
Как вариант - сначала избавится от знака, потом проверять на кол-во разрядов. Т.е.
If (a < 0) a *= -1;
Или можно использовать cmath:
#include <cmath>
a = abs(a);
Ответ:
Program Massiv; //Заголовок программы
const n=12;
var i,m,p:integer; s: array[1..n] of integer;
begin
p:=1;
for i :=1 to n do
s[i]:= random (10,44);
for i :=1 to n do begin
if (s[i] mod 5) = 0 then p:= p * s[i];
end;
writeln(s);
if p = 1 then
write('Нет элементов кратных 5')
else
write('p = ', p);
end.
Объяснение:
программа описана в файле ворд
Извини, второй лист решать - это много. Здесь итак 9 примеров было.
Если шаг не задан явно, значит он равен 1.