Дана строка символов заменить первые пять символов на букву "а".Решите пожалуйста в Delphi 7
Дана строка символов заменить первые пять символов на букву "а".Решите пожалуйста в Delphi 7
Гость
Ответ(ы) на вопрос:
Гостьvar s:string;
i:integer;
begin;
readln(s);
if length(s)<5 then
begin;
writeln('Условие не выполнено');
exit;
end;
for i:=1 to 5 do
s[i]:='a';
write(s);
end.
//Файлом в личке
Не нашли ответ?
Похожие вопросы