3. Составить программу решения: с клавиатуры вводится символ. Вывести на экран двоичный код этого символа. нужно сделать программу на

Какой оператор цикла желательно использовать, если известно число повторений тела цикла?

repeat <оператор1, …>until <условие>

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

for <параметр>:= <начальное значение>to<конечное значение> do<оператор>

2. Используется оператор for i:= -10 to 10 do…

После завершения выполнения тела цикла i = 10

3. Цикл в фрагменте программы

p:=1;

repeat

p:=p*0.1

until p>0.1;

будет исполнен:

1 раз

2 раза

бесконечное число раз

0 раз

3 раза

4. Цикл в фрагменте программы

a:=1;

b:=1;

while a+b<8 do

begin

a:=a+1; b:=b+2

end;

выполнится:

0 раз

3 раза

2 раза

1 раз

бесконечное число раз

5. Какой оператор цикла желательно использовать для записи алгоритмической конструкции, изображённой на схеме?

НЕТ СХЕМЫ. ОТВЕТИТЬ НА ВОПРОС НЕВОЗМОЖНО.

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

for <параметр>:= <начальное значение> to <конечное значение> do <оператор>

repeat <оператор1, …> until <условие>

6. Какой оператор цикла желательно использовать, если известно условие выхода из цикла?

repeat <оператор1, …> until <условие>

for <параметр>:= <начальное значение> to <конечное значение> do <оператор>

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

7. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:

a:=1; b:=1;

while a<=32 do a:=a*2; b:=b*a;  //Обратите внимание! Нет begin end.

write (b)

32

256

64

128

8. Используется оператор for i:= -5 to 9 do…

При первом выполнении тела цикла i = -5

9. Чему равно значение переменной s после выполнения следующего фрагмента программы

Фрагмента программы нет! Задание решить нельзя!

Type
  mas=array[,] of integer;
const
  n=5;
  m=6;
var
  i,j,ik,jk,k:integer;
  a:mas;
  b:array[0..n-1]of integer;//вс массив
begin
setlength(a,n,m);
writeln('Массив:');
for i:=0 to n-1 do
  begin
  for j:=0 to m-1 do
    begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    end;
  writeln;
  end;
writeln('Вставка строк:');// в массиве b признак наличия в строке 1-го четного
for i:=0 to n-1 do
    if a[i,0] mod 2=0 then b[i]:=1;
for i:=0 to n-1 do k:=k+b[i];
k:=n+k-1;
setlength(a,k+1,m);
ik:=k;
for i:=n-1 downto 0 do
  begin
  if b[i]=1 then
      begin
      for jk:=0 to m-1 do a[ik,jk]:=1;
      ik:=ik-1;
      end;
  for jk:=0 to m-1 do a[ik,jk]:=a[i,jk];
  ik:=ik-1;
  end;
for i:=0 to k do
  begin
  for j:=0 to m-1 do write(a[i,j]:4);
  writeln;
  end;  
end.