Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Кодик паскаль ужас

Polina Myalik Ученик (99), на голосовании 3 дня назад
program InsertSubstring;

uses
SysUtils;

var
F: string;
substring: string;
Z: integer;
S: integer;
R: integer;
result: string;


begin
write('Введите строку F: ');
readln(F);

write('Введите позицию Z для вставки "утро": ');
readln(Z);

write('Введите позицию R для вставки числа S: ');
readln(R);

write('Введите число S: ');
readln(S);

writeln('Исходная строка: ', F);

// Проверка корректности позиций
if (Z < 1) or (Z > Length(F) + 1) then
begin
writeln('Ошибка: Некорректная позиция Z.');
readln;
exit;
end;

if (R < 1) or (R > Length(F) + 1) then
begin
writeln('Ошибка: Некорректная позиция R.');
readln;
exit;
end;


// Вставка "утро"
result := Copy(F, 1, Z - 1) + 'утро' + Copy(F, Z, Length(F) - Z + 1);

// Вставка числа S
result := Copy(result, 1, R - 1) + IntToStr(S) + Copy(result, R, Length(result) - R + 1);



writeln('Строка после изменений: ', result);

readln;
end.
Голосование за лучший ответ
Тоша 토샤님 Просветленный (38001) 1 месяц назад
А где ужас
Polina MyalikУченик (99) 1 месяц назад
для себя пришлось так вопрос пометить, извиняюсь
Похожие вопросы