Дана строка символов заменить первые пять символов ** букву "а".Решите пожалуйста в...

Question

Дана строка символов заменить первые пять символов на букву "а".Решите пожалуйста в Delphi 7

Comments

Видишь ли, здесь практически невозможно послать решение на Delphi. Я всё сбросил тебе в личку. Будет справедливо, если я заберу эти баллы.

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.

//Файлом в личке