uses crt; var s: string; procedure vvod(var s: string); var i: integer; begin s:=’0123456789′; end; procedure obrabotka(var s: string); var i: integer; begin for i:=length(s) downto 1 do begin if s[i] in [‘1′,’3′,’5′,’7′,’9’] then delete(s,i,1); end; end; var comanda: byte; begin clrscr; writeln(‘1-vvod, 2-obrabotka, 3-vyvod, 9-vyhod’); repeat writeln(‘Vvedite comandu: ‘); read(comanda); case comanda of 1:begin vvod(s); writeln(s); end; 2:obrabotka(s); 3:writeln(s); 9:writeln(‘End’); else writeln(‘Error’); end; until comanda = 9; end.
Read More