Сделать текстовый файл 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
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов