Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дана строка символов заменить первые пять символов на букву "а".Решите пожалуйста в 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.

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