урок 20-24 октября

 Упражнение с готовыми задачами

1.        Определить, что будет в переменной Man после выполнения следующей программы.

Program AA;

var Man, i : integer;

       str : string;

begin

       str:=’a’;

       for i:=1 to 4 do str:=str+str;

       Man:=length(str);  end.

2.        Какая последовательность символов будет содержаться в переменной  b  после выполнения данной программы.

Program AA;

var a, b : string;

       k : integer;

begin   a:=’a’;  b:=’b’;

       for k:=1 to 3 do begin

a:=a+b; b:=b+a; end; end.

9.        Какая последовательность символов будет содержаться в переменной  b  после выполнения данной программы.

Program AA;

var b : string;

       k : integer;

begin

       b:=’b’;

       for k:=1 to 3 do b:=’a’+b+’a’

end.

10.    Какая последовательность символов будет содержаться в переменной  b  после выполнения данной программы.

Program AA;

var b : string;

       k : integer;

begin

       b:=’b’;

       for k:=1 to 3 do b:=b+’a’+b

end.

12.    Какая последовательность символов будет содержаться в переменной  b  после выполнения данной программы.

Program AA;

var a, b : string;

       k : integer;

begin

       b:=’abc’;

       for k:=1 to 2 do b:=b+b[k]

end.

13.    Определить, что будет в переменной Man после выполнения следующей программы.

Program AA;

var

       Man, i : integer;

       str : string;

begin

       str:=’bb’;

       for i:=1 to 5 do str:=str+str;

       Man:=length(str);

end.