Определи значение переменной a после выполнения фрагмента алгоритма при a=5 и a=14. Ввод а
если a>5
то a:=a+20
иначе a:=a*10
всё

ответ: при a=5 значение переменной a равно ()
, при a=14 значение переменной a равно ()
.

Question

Информатика: Определи значение переменной a после выполнения фрагмента алгоритма при a=5 и a=14. Ввод а если a 5 то a:=a+20 иначе a:=a*10 всё ответ: при a=5 значение переменной a равно () , при a=14 значение переменной a равно () .​

liliiayukhno1 · Accepted Answer

Var
l,i:integer;
s,w:string;
prt:boolean;
c:char;

begin
{ s:=' Арбуз    вагон барабан Goodday   dummy. '; }
Write('Введите строку: ');
Readln(s);
l:=Pos('.',s);
s:=Copy(s,1,l-1)+' ';
i:=1;
prt:=False;
w:='';
while i<=l do
begin
    c:=s[i];
    if c=' ' then
    begin
      if prt then
        begin
        if Length(w)>2 then Write(Copy(w,1,Length(w)-2),' ');
        w:='';
        prt:=not prt
        end
    end
    else
    begin
      w:=w+s[i];
      prt:=True
    end;
    Inc(i)
end;
Writeln
end.

MOGZ ответил