var s:string;
BEGIN
readln(s);
delete(s,pos('(',s),pos(')',s)-pos('(',s)+1);
writeln(s);
end.
program raf105;
var a,b,sum,nsum,nkol:integer;
sari:real;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
sum:= sum+b;
if (b mod 2)<>0
then
begin
nsum:= nsum+b;
nkol:= nkol+1;
end;
end;
sari:= nsum/nkol;
writeln('Сумма всех цифр в числе: ',sum);
writeln('Среднее арифметическое нечётных цифр в числе: ',sari);
end.
<u><em>Язык программирования PascalABC</em></u>
100=1100100 в 2-ичную
100=144 в 8-ричную
100=64 в 16-ричную
222=11011110
222=336
222=DE
333=101001101
333=515
333=14D
var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.