Это программа pascal можно перевести на программу c++? program Project1;
Uses Crt;
Var S: String; x, k: Integer;
begin
ClrScr;
Write('S=');
Readln(S);
{a} If Pos('0',S)>0 Then Writeln('Yes')
Else Writeln('No');
{b} x:=0;
For k:=1 To Length(S)-3 Do
If Copy(S,k,1)='0' Then inc(x);
Writeln('x=', x);
Readln;
end.

ChocoPie12    2   11.11.2020 02:21    0