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.
//Delphi в приложении
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
