Есть вопросы?

Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!

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

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...

Популярные вопросы