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

Проанализируйте работу программы
program math;
var x, y: integer;
begin
x:=1; y:=1;
while x<7 do
begin
у:=y*2;
x:=x+1
end;
end.
ответьте на во а) Сколько раз исполнится тело цикла?
б) Сколько раз исполнится тело цикла, если изменить условие на х>=7?

👇
Ответ:
irunadp0a62f
irunadp0a62f
07.03.2021

ответ:

А) 6

Б) 0

4,4(96 оценок)
Открыть все ответы
Ответ:
Napol28
Napol28
07.03.2021
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 10;

var
  a: array[1..n] of integer;
  i, j, c, nc, max, imax: integer;
  p:BigInteger;

begin
  // Заполним массив сл. числами
  max := -MaxInt;
  for i := 1 to n do
  begin
    a[i] := random(-100, 100);write(a[i]:4);
    if abs(a[i]) > max then begin
      max := a[i];imax := i;
    end;
  end;
  writeln;
  //1. Количество элементов массива, больших С.
  writeln('Введите число "с"');readln(c);
  for i := 1 to n do if a[i] > c then nc := nc + 1;
  writeln('Элементов больше чем ', c, ' : ', nc);
 
  //2. произведение элементов массива,
  //расположенных после мак симального
  //по модулю элемента 
  p := 1;
  for i := imax + 1 to n do p := p * a[i];
  writeln('Максимальный по модулю элемент находится на ', imax, ' месте');
  writeln('Произведение элементов массива,расположенных после максимального по модулю элемента ', p);
 
  //3. Преобразовать массив таким образом, чтобы сначала размещались все
  //отрицательные элементы, а потом все положительные
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] > a[j + 1] then begin
        swap(a[j], a[j + 1]);  
      end;
  writeln('Преобразованный массив :');
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
  -6  91  52  62 -28 -64  86  86 -91 -61
Введите число "с"
15
Элементов больше чем 15 : 5
Максимальный по модулю элемент находится на 2 месте
Произведение элементов массива,расположенных после максимального по модулю элемента -1246076928
Преобразованный массив :
 -91 -64 -61 -28  -6  52  62  86  86  91
4,5(97 оценок)
Ответ:
helpme163
helpme163
07.03.2021

Объяснение:

Анализом доходов и расходов занимается каждый человек, которому небезразлично финансовое благополучие своей семьи. Если вы не знаете сколько у вас денег значит их у вас нет. Ведение бюджета позволяет всегда оставаться в плюсе, предупреждать ненужные траты, реализовывать цели и мечты.

Готовых программ для учета доходов и расходов много. Но найти лучшую программу, которая выполняла бы все запросы конкретной семьи сложно. Ведь запросы-то разные. Предлагаем составить семейный бюджет в Excel и адаптировать его под свои нужды.

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