Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.
Обувщик или сапожник, стоматолог, шофёр или водитель
1. самое простое ПЕРЕ и нарисовать ДАЧУ
2. или нарисовать Ч перед А и в конце подписать А и получится перед АчА
<span>3. Х, нарисовать экран и впереди поставить две запятые убирающие ЭК (остается РАН) , Pa(давление) и впереди 4 запятых и получится Х ' '(экран) ' ' ' 'Pa</span>
Правильно D )) lol ())))))
№ 20 Ответ: г
№ 21 Ответ: в
№ 22 Ответ: а
№ 23 Ответ: б
№ 24 Ответ: а
№ 25 Ответ: б
№ 26 Ответ: в
№ 27 Ответ: а
№ 28 Ответ: общение, развлечение, денежные операции и т. д.