Нужно написать программу, что бы буквы заменялись на на "заглавные", а не те, что стоят перед ними в алфавите. pascalabc program ex_1; var s: string; n, i, b, j: longint; c: char; begin writeln('введи текст из сообщения выше: '); readln(s); for i: =length(s) downto 1 do if s[i] in ['a'..'z'] then s[i]: =upcase(s[i]) else if s[i] in ['a'..'z'] then s[i]: =chr(ord(s[i])+32) else if s[i] in ['0'..'9'] then delete(s,i,1); write(s); end.

SattorovaSonya    1   02.07.2019 00:40    0