Паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные - id421258720220502 от стэа 02.05.2022 20:06

Question

Информатика: Паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные знаки на знаки

стэа · Accepted Answer

Var n1,n2,A,B:integer;     D:byte; Begin WriteLn( 1 - Ввести n1 и n2, 0 - выход ); ReadLn(D); While D = 1 do    Begin    Write( n1 = );ReadLn(n1);    Write( n2 = );ReadLn(n2);    For n2:= n1 to n2 do        Begin        A:=n2;        B:=0;        While A 0 do           Begin           B:=B*10+A mod 10;           A:=A div 10;           End;        if B = n2 then Write(n2, )        End;    WriteLn;    WriteLn( 1 - продолжить, 0 - выйти );    ReadLn(D);    End; End. Правда, я не уверен, что она правильно...

Паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные знаки на знаки

MOGZ ответил