Срочнооо!!! Помогите пожалуйста

2 вариант

1) Какие операторы используются для организации циклов?

a) while условие until <оператор>;

b) repeat <операторы > until условие;

c) while условие do <оператор>;

d) repeat <операторы > do условие.

2) Какое значение имеет счетчик цикла после завершения выполнения цикла?

a) Равное тому значению, для которого в последний раз выполнялось тело цикла

b) На 1 больше последнего значения, для которого тело цикла еще выполнялось

c) Равное 0

d) Не определено

3) Напишите, что будет выведено на экран в ходе выполнения фрагмента программы:

a) y := 0; FOR x := 1 TO 9 do y := y + x; Writeln (y);

b) y := 0; FOR x := 1 TO 5 do y := y * x; Writeln (y);

4) Какое значение будет принимать переменная Y после выполнения фрагментов программы?

a) Var Y, X: integer;

Begin

Y: = 0; X: = 10;

While X > 0 do

Begin

X: = x – 2;

Y: = Y + X

End;

Writeln (‘Y=’,Y);

End.

b) Var Y, X: integer;
Begin
Y: = 1; X: = 15;
While X>5 do
Begin
X: = X – 3; Y: = Y * X
End;
Writeln (‘Y = ‘,Y);

End.

5) Определить значение переменной у после выполнения следующих фрагментов программы:

a) y := 0; for k : = 2 to 6 do у := у + k;

b) у : = 1; for k : = 6 downto 3 do у : = у + k ;

c) у := 1; for k := 6 to 3 do у : = у + k;

d) у := 1; for k := 1 to 3 do у : = у + k ; у := у * 10;

e) y := 0; for i : = 1 to 4 do begin y := y * 10 ; y := y + i; end;

f) у ;= 0; for х := 6 downto 2 do у : = у +х; у := у * 2;

g) y := 0; for n := 6 downto 3 do begin y := y + 1; y :=y * 2; end;

6) Определить значение переменной s после выполнения следующих фрагментов программы:

a) Var s : real; i : integer; s := 0 ; i := 5; while i>2 do i:=I -1; s := s + i * i;

b) Var s : real; i : integer; s := 0 ; i := 2 ; repeat i:=2*i; s:=s+i until i > 5 ;

c) Var s : real; i : integer; s := 0 ; i := 0; while i<5 do i:= i+1; s := s + 1 * i;

d) Var s : real; i : integer; s := 0 ; i := 1; while i >1 do begin s := s + 1 / i ; i:= i-1; end;

e) Var s : real; i : integer; s := 0 ; i := 5; repeat i:=2*i; s := s + i until i > 5;

f) Var s : real; i : integer; s := 0 ; i := 1; repeat s : = s + 1 / i ; i : = I -1 until i <= 1;

7) [2]Составьте блок-схему и программу решения задачи: квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Написать программу поиска таких чисел.