Сделать текстовый файл f1. Конкатенировать файл f1 самого с собой, только
Сделать текстовый файл f1. Конкатенировать файл f1 самого с собой, только записанного задом
наперед и результат записать в файл f2. Вывести на экран файл f2.
1 ответ
Виталька
Var
f1,f2:text;
s:string;
begin
assign(f1,'d:\f1.txt');
reset(f1);
read(f1,s);
close(f1);
assign(f2,'d:\f2.txt');
rewrite(f2);
write(f2,s);
write(f2,ReverseString(s));
close(f2);
assign(f2,'d:\f2.txt');
reset(f2);
read(f2,s);
writeln(s);
close(f2);
end.
f1,f2:text;
s:string;
begin
assign(f1,'d:\f1.txt');
reset(f1);
read(f1,s);
close(f1);
assign(f2,'d:\f2.txt');
rewrite(f2);
write(f2,s);
write(f2,ReverseString(s));
close(f2);
assign(f2,'d:\f2.txt');
reset(f2);
read(f2,s);
writeln(s);
close(f2);
end.
Людмила Будагян
что такое ReverseString ?, можно ли её поменять чем нибудь иным? к образцу командой какой?
Виолетта Губайс
Перекладывает строчку задом наперед
Руслан Чукатов
У тебя ее нет?
Ванька Залмуник
нет,нам её не давали, мы маршрутом сдвига делали реверс
Valerija Karmyshova
Я теснее не могу поменять ответ. Время вышло. А как это - сдвигом?
Геннадий Пиндюрин
В раздел описания переменных добавь одну строчку: var f1,f2:text; s:string; i:integer;
Ева Трофименцева
Удали: write(f2,ReverseString(s));
Валера Желток
В это место вставь две строки:for i:=length(s) downto 1 dowrite(f2,s[i]);
Карина Видны
вот , спасибо здоровенное!!!!
Vitalik
что такое ReverseString ?, можно ли её заменить чем нибудь иным? к образцу командой какой?
Трежинова
Лилия
Перекладывает строчку задом наперед
Лидия Лашина
У тебя ее нет?
Ленка Урюжникова
нет,нам её не давали, мы маршрутом сдвига делали реверс
Жималовская
Галя
Я теснее не могу изменить ответ. Время вышло. А как это - сдвигом?
Юля Дрожжилова
В раздел описания переменных добавь одну строку: var f1,f2:text; s:string; i:integer;
Егор Репехов
Удали: write(f2,ReverseString(s));
Кочулин
Олег
В это место вставь две строчки:for i:=length(s) downto 1 dowrite(f2,s[i]);
Руслан Лучка
вот , спасибо здоровенное!!!!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов