Запишите значение переменной s, полученное в результате работы следующей программы 1)var s, k: integer; begin s : = 0; for k : = 4 to 7 do s : = s + 8; writeln(s); end. запишите значение var s, k: integer; begin s : =1 ; for k : = 1 to 5 do s : = s * 2; writeln(s); end. запишите значение переменной s, полученное в результате работы следующей программы var s, k: integer; begin s : = 100; for k : = 0 to 10 do s : = s - 5; writeln(s); end. напишите всё разборчиво и правильно вместе с решением

Задача №1

Смотрим на цикл, при выполнении программы он пройдёт 4 итерации.

Тогда S = 8 * 4 = 32

ответ: 32

Задача №2

Смотрим на цикл, при выполнении программы он пройдёт 5 итераций.

Тогда сначала s = 1 * 2 = 2, потом s = 2 * 2 = 4, затем s = 4 * 2 = 8,  затем s = 8 * 2 = 16, затем s = 16 * 2 = 32,

ответ: 32

Задача №3

Здесь будет 11 итераций цикла, 100 - 5 * 11 = 45 (т.к. s = 100, за один проход - 5 от значения s)

ответ: 45

Невнятно как-то сформулировано - то индексы найти, то массива нету... Пишу, как понял.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  массив: РЯД 15 ИЗ ВЕЩ;
  сч, найдено: ЦЕЛ;
  найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ;

УКАЗ
  найдено := 0;
  СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] = массив[0] ТО
      найденное[найдено] := сч;
      УВЕЛИЧИТЬ(найдено)
    КОН
  КОН;
  ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")
  ИНАЧЕ
    СОЗДАТЬ(индексы, найдено);
    ОТ сч := 0 ДО найдено - 1 ВЫП
      индексы[сч] := найденное[сч]
    КОН;
    найденное := ПУСТО
  КОН

КОН Задание.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  м1, с1, м2, с2, м3, с3: ЦЕЛ;

УКАЗ
  Вывод.Цепь("Первый спортсмен: ");
  м1 := Приём.Число(); Вывод.Цепь(":"); с1 := Приём.Число();
  Вывод.Цепь("^Второй спортсмен: ");
  м2 := Приём.Число(); Вывод.Цепь(":"); с2 := Приём.Число();
  Вывод.Цепь("^Третий спортсмен: ");
  м3 := Приём.Число(); Вывод.Цепь(":"); с3 := Приём.Число();

  с1 := с1 + м1 * 60;
  с2 := с2 + м2 * 60;
  с3 := с3 + м3 * 60;

  ЕСЛИ с1 > с2 ТО
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с1 > с3 ТО
      Вывод.Цепь("^Первый.")
    ИНАЧЕ
      Вывод.Цепь("^Первый и третий.")
  АЕСЛИ с2 > с1 ТО
    ЕСЛИ с3 > с2 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с2 > с3 ТО
      Вывод.Цепь("^Второй.")
    ИНАЧЕ
      Вывод.Цепь("^Второй и третий.")
  ИНАЧЕ
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с3 < с1 ТО
      Вывод.Цепь("^Первый и второй.")
    ИНАЧЕ
      Вывод.Цепь("^Ничья.")
  КОН

КОН Задание.