Как поставить русский я не знаю
Программа:
Pascal:
var
st: string;
temp: integer;
begin
readln(st);
temp := 1;
repeat
if copy(st, temp, 2)=' ' then
st := copy(st, 1, temp) + copy(st, temp + 2, length(st))
else inc(temp);
until (temp > length(st));
writeln(st);
end.
Python:
s = input()
while ' ' in s:
s= s.replace(' ', ' ')
print(s)
Как поставить русский я не знаю
Программа:
Pascal:
var
st: string;
temp: integer;
begin
readln(st);
temp := 1;
repeat
if copy(st, temp, 2)=' ' then
st := copy(st, 1, temp) + copy(st, temp + 2, length(st))
else inc(temp);
until (temp > length(st));
writeln(st);
end.
Python:
s = input()
while ' ' in s:
s= s.replace(' ', ' ')
print(s)