mira15963256
?>

Определите значение переменной А после выполнения фрагмента алгоритма, представленного блок-схемой при начальных А=0, В=8. Определите значение переменной А после выполнения фрагмента алгоритма, представленного блок-схемой при начальных А=1, В=8.

Информатика

Ответы

Stasyadoma

Відповідь:

1. A = 4

2. A = 3

Пояснення:

1.1) B > 4 да B = 4 A = 4

 2) B > 4 нет

2.1) B > 4 да B = 4 A = 3

 2) B > 4 нет

Vello Olga

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

Richbro7

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Определите значение переменной А после выполнения фрагмента алгоритма, представленного блок-схемой при начальных А=0, В=8. Определите значение переменной А после выполнения фрагмента алгоритма, представленного блок-схемой при начальных А=1, В=8.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

beast05031075
nadejdashin508
iplizogub74
ivanandrieiev1984268
fakelel
dilbaryan76
sbn07373
miyulcha8077
Тимур Андраниковна634
oniks-plus
Dato24043846
a96849926288
svetkaiv
ranocchio6
subbotinlan