Программное управление работой компьютера

Дан фрагмент программы,  на писанной на языке Паскаль. Сколько раз выполняется тело цикла?

S:=0;

I:=1;

while I>1 do

begin

S:=S+1/I;

I:=I-1;

end;

1. Выберите верную запись арифметического выражения \(\frac{x+2y}{3xy}\)   на языке Паскаль :

Определить значение переменной Х, которое будет получено в результате выполнения фрагмента программы, записанной на языке Паскаль:

A:=3;

B:=2;

A:=B;

X:=2;

If A>=B

then X=B-1;

else X:=A+1;

Определите значение переменной Z после выполнения фрагмента алгоритма, если введены значения 1    -1

Z:=0

ввод Y,X

если X>0

то если Y>0

то Z:=1

иначе Z:=2

кв

кв

Какой оператор необходимо вставить вместо многоточия в следующий фрагмент программы на алгоритмическом языке, чтобы верно решалась задача определения произведения элементов массива А, содержащего N элементов?

…….

для i:=1 до N повторять

нц

S:=S*A[i]

кц;

​​​​​​Определить, что будет выведено на печать в результате выполнения программы, написанной на языке Паскаль, если введены значения       3    -1     7

program X;

var A,B,C: integer;

begin readln (A,B,C);

            if A>B then begin       D:=A;

                                               E:=B;

                                   end

else begin  D:=B;

E:=A;

end;

            If C>D then D:=C;

            If C<E then E:=C;

            writeln(D,’  ’,E);

end.

Определить, что будет выведено на печать при выполнении следующей программы, написанной на языке Паскаль:

program A;

var  x,y: real;

begin

x:=1.5;

x:=2*x+1;

y:=x/2;

y:=x+y;

x:=x-y;

writeln (y,’   ’,x);

end.

Выбрать последовательность операторов присвоения, меняющую местами значения двух величин X и Y:

Определить, что будет выведено на печать при выполнении следующего фрагмента алгоритма, если введены значения   2,   0.5,    3.0

ввод А,В,С

К:=А

пока К<B повторить

нц

К:=К+С

кц

К:=К+В

вывод К

Определить целочисленную переменную S после выполнения фрагмента алгоритма

S:=128

для i:=1 до 4 повторять

нц

S:=S-(i*2)

кц

Дан фрагмент программы на языке Паскаль

writeln (‘ введите пароль, ученик‘);

readln(pasw);

if pasw=’ НЕ_МОГУ_ЗНАТЬ’

then begin

writeln(‘Добро пожаловать в программу‘);

end

end.

Чтобы программа продолжила диалог, необходимо ввести строку текста:

Какую задачу решает приведенный фрагмент программы на языке Паскаль (a и b переменные целого типа)?

readln (a,b);

while  a < > b do

if a > b

then  a:=A-b

else  b:=b-a

writeln (a);

Дан фрагмент алгоритма, какую задачу он решает?

ввод X,Y,Z;

пока (X>Y) ИЛИ (Y>Z) повторять

нц        если X>Y

то        A:=X;

X:=Y;

Y:=A;

кц

если Y>Z

то        A:=Y;

Y:=Z;

Z:=A;

кц

вывод X,Y,Z;

Одномерный массив А содержит следующие элементы (-1, 6, 7, 2, 1, -2), что будет храниться в массиве после выполнения фрагмента программы?

для i:=1 до 5 повторять

нц

A[i]:=A[i]+A[i+1]

кц

Определить значения S и I после выполнения фрагмента алгоритма:

S:=0

I:=-3

пока I<2 повторять

нц если I<0

то A:=I*I

иначе A:=I-1

кв

S:=S+A

I:=I+1

кц