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

Печенькавасилиса Печенькавасилиса    1   12.07.2019 16:30    0

Ответы
kornilov1001 kornilov1001  03.10.2020 01:56
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.

//Файлом в личке
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика