Ответы
Ответ дал:
0
uses crt;
var s:string;i:integer;
begin
read(s);
for i := 1 to length(s) do begin
if (s[i] >= 'a') and (s[i] <= 'z') then write(s[i]);
if (s[i] >= 'A') and (s[i] <= 'Z') then write(s[i]);
end;
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад