выполнить тассировку и написать результат работы фрагмента программы:

составить программу для ста слагаемых (i+1)/(i+2) , где i - переменная цикла. Прога нужна в паскале. Заранее проверяйте, чтоб работала.

сколько символом содержал переданный текст, если известно, что он был представлен в 16-битной кодировке Unicode

3) Какая фигура в блок-схеме предназначена для выводы данных?

4) Определите результат работы программы : a:=-6 b:=-5 a:=a-2*b;b"=a

5) Скольких команд ввода исходных данных достаточно для решения квадратного уравнения?

Варианты:
1) as.mdb
2) as.xls
3) as.doc
4) as.ppt

2.

Пользователь работал с каталогом
C:\Контрольные\Тесты\История\
Сначала он поднялся на один уровень вверх, затем еще раз поднялся на один
уровень вверх и после этого спустился в каталог Архив. Определите полное
имя каталога, в котором оказался пользователь.

Варианты:
1) C:\Контрольные\Архив\
2) C:\Контрольные\Тесты\Архив\
3) C:\Контрольные\Тесты\История\Архив\
4) C:\Архив\

3.

Какое число будет напечатано на экране в результате выполнения фрагмента
программы?
Бейсик
F=5
FOR K=9 TO 7 STEP -1
F=F+(K+1)
NEXT K
PRINT F
Паскаль
F:=5;
FOR K:=9 DOWNTO 7 DO
F:=F+(K+1);
WRITE(F);

1. Сколько раз выполнится тело цикла и какие значения будут

присвоены переменной I?

I:=1;

While I<=10 do

I:=I+1;

2. Что появится на экране в результате работы этих программ?

а) Program primer1;

Var X:real; I:integer;

Begin I:=1; X:=0;

While I<=5 do begin

X:=X/2+I*I;

I:=I+1;

End;

Write(X);

End.

b) Program primer2;

Var X,I,N:integer;

Begin

Write ('введите число');

Readln(X);

I:=1;

While I<=X do begin

If X mod I=0 then N:=N+1;

I:=I+1;

End;

Write(N,I);

End.

(если X=12)

Python

b = 15
c = 0
while b != 3:
c=c+b
b=b-3
print(c)