Определите, какую задачу решает программа на Паскале:
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.
Другие вопросы по: Информатика
Знаешь правильный ответ?
Определите, какую задачу решает программа на Паскале:program test2;var SL: string; i: integer;beginr...
Популярные вопросы