М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
arseniyyuldash
arseniyyuldash
30.12.2022 08:22 •  Информатика

Прочитай высказывание. результатом обработки информации может быть устное высказывание, высказывание в виде текста, рисунка, схемы, формулы. ты согласен с этим ?

👇
Ответ:
ozorkaltseva
ozorkaltseva
30.12.2022
Да, полностью согласен
4,4(85 оценок)
Открыть все ответы
Ответ:
yana14102004
yana14102004
30.12.2022
Const n=15;
Var a:array[1..n]  of integer;
i,indx,k,tr,indxx:integer;
Begin 
Randomize; 
 For i:=1 to n do  begin
  A[i]:=Random(40)-20; 
 Write(a[i],' '); 
   end; 
       Writeln; 
   write('0 имеет номер: '); 
     For i:=1 to n do   
Begin
 If A[i]=0 thenwrite(i);
 end;
Writeln;
indx:=0; 
 For i:=1 to n do 
  Begin
   If a[i] mod 2=0 then 
  begin 
  indx += 1; 
 a[indx]:=a[i]; 
  end; 
 end; 
    Write('Индекс четных элементов: '); 
 For i:=1 to indx do 
 write(a[i],' ');   
   For i:=1 to n do
    Begin 
   If A[i]<0 then
      Begin   
  inc(k);      
 end;      
   end;   
 Writeln;
 Writeln('Кoличество отрицательных элементов: ',k);
 For i:=1 to n do
  Begin 
 If A[i] mod 3=0 then 
 tr:=a[i];
  end; 
 Writeln('Кратное трем ',tr); 
   indxx:=0; 
 writeln('Индексы кратны 3: '); 
  For i:=1 to n do 
  Begin 
  If a[i] mod 3=0 then 
  begin   
   indxx += 1; 
 a[indxx]:=a[i];
   write(' ',a[i]); 
    end;   
 end;    
  end.  
4,6(48 оценок)
Ответ:
алиная2
алиная2
30.12.2022

12

Объяснение:

Вероятно это на Pascal. Если исправить в программе ошибки, то она может выглядеть так:

var x,y,i: integer;

begin

x := 1;

y := x-4;

for i := 1 to 4 do  

   begin

       if y < 2 then x := x+4 else x:= x+2;

       if x < 8 then y:= y+1 else y := y-1;

   end;

y := y+x;

writeln (y);

end.

Итак, значения i меняются от 1 до 4

i = 1, x= 1, y = x-4 = -3, и поскольку y < 2 TRUE тогда x = x + 4 = 1 + 4 = 5

поскольку x < 8 TRUE, то y = y + 1 = -3 + 1 = -2

i = 2, x = 5, y = -2 и поскольку y < 2 TRUE, то x = x + 4 = 5 + 4 = 9

поскольку x < 8 FALSE, y = y - 1 = -2 -1 = -3

i = 3, x = 9, y =- 3 и поскольку y < 2 TRUE, то х = х + 4 = 9 + 4 = 13

поскольку x < 8 FALSE, y=y-1 = -3 - 1 = -4

i = 4, x = 9, y = -4  и поскольку y < 2 TRUE, то х = х + 4 = 13 + 4 = 17

поскольку x < 8 FALSE, y=y-1 = -4 - 1 = -5

y = y + x = -5 + 17 = 12

выводим 12, конец программы

ЗЫ: когда задаете вопрос по программированию, стоит указать язык программирования, так всем будет проще

4,7(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ