Определите, какую задачу решает программа на Паскале:

program test2;

var SL: string; i: integer;

begin

readln(SL);

i:=1;

while (i>=l) and (SL[i]<>'*') and (i<=length(SL)) do

begin SL:=SL+'*'; i:=i+l end;

writeln(SL)

end.​

jankirik    2   13.04.2020 14:28    54