• B правой части каждого сообщения есть стрелки ⇧ и ⇩. Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок ✔ в правой части сообщения.

  • 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Borland Pascal

  • Автор темы Tretyak
  • Дата начала
T

Tretyak

Дано символьний файл f. Переписати компоненти файлу f у файл g, замінивши при цьому кожен знак оклику крапкою.
 
Сортировать по дате Сортировать по голосам
S

sinkopa

Tretyak сказал(а):
Дано символьний файл f. Переписати компоненти файлу f у файл g, замінивши при цьому кожен знак оклику крапкою.
Нажмите, чтобы раскрыть...
Код: 
var
f,g: Text;
fName: String;
c: Char;
begin
try
Write('Введіть ім''я файлу без розширення: ');
Readln(fName);
Assign(f,fName+'.txt');
Reset(f);
Assign(g,fName+'2.txt');
Rewrite(g);
While not Eof(f) do
begin
Read(f,c);
If c='!' Then
c:='.';
Write(g,c);
end;
Close(f);
Close(g);
except
Writeln('Файл не знайдено!');
end;
end.
 
За 0 Против
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ