Дана строка,заменить в ней первые пять символов ** букву 'а'

Question

Дана строка,заменить в ней первые пять символов на букву 'а'

Answer 1

Var s:string;
i:integer;
begin;
readln(s);
if length(s)<5 then<br> begin;
  writeln('Условие не выполнено');
  exit;
 end;
for i:=1 to 5 do
s[i]:='a';
write(s);
end.

//Delphi в приложении

Comments

Извините,забыл написать,можно в Delphi 7?

---

Вот уж точно неудачно забыл написать. Что-нибудь придумаю.

---

Так, теперь я не могу сбросить архив.

---

И что делать? 

---

В личку переброшу.