Question

Написать программу, которая в последовательности заменяет комбинацию 000 на 1

Answer 1

Ответ:

Var

S,a:real

begin

S:=000;

a:=1;

S:=S+a;

writeln('S=', S);

end.