Исправьте ошибки во фрагменте программы:

n:=1

begin

repeat

write (' n=', n:5) ;

until n<=10

end;

1) Сколько раз выполниться цикл: a) For i:=7 downto - 3 do k:=k+1; b) k:=0; while k < 15 do begin k:=k+4; end; c) k:=10; repeat k:=k-1; until k>2; 2) Определите, что будет напечатано в результате работы следующего фрагмента программы: a) s:=0;

Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...

Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у : = 1; i : = 5; while i> 2 do i: = i - 1; y:=y + 1 * i; b) Var у : real; i : integer; у : = 1; i : = 2; repeat i: = 2 * i;

1) Какие операторы используются для организации циклов? a) while условие until; b) repeat until условие; c) while условие do; d) repeat do условие.

1. Сколько раз выполнится тело цикла во фрагменте программы S:=8; for i:=46 to 1 do s:=s+i; 2. Сколько раз выполнится тело цикла во фрагменте программы S:=0; for i:=1 to 50 do s:=s+i; 3.