(3 Задание 3. Вычислите:
b) (34.5+25.5 -15*y) /2, при у= 2,
Объясните: Меняется ли результат вычисления при заключении
выражения в числителе в скобки и без скобок?​

S=int(input()) - Переменная S задается пользователям

x=1 - Переменная x задается 1

s=0 - Переменная s задается 0

while S != 0: - Начинается цикл пока S не равно 0

if S < 300: - Если S меньше 300

if S % 10 == 6 and S % 6 == 0: - Если S процентов 10 равно 6 и S процентов 10 равно 0

s += S - Переменная s прибавляется к S

S = int(input()) - Переменная S задается пользователям

x += 1 - Переменная x прибавляется на 1

if x > 100: - Если x больше 100

stop - Стоп (Точно не знаю стоп это вроде бы остановить программу)

print(s) - Печатать в консоль значение переменной s

Объяснение:

Объяснения нет.

{
 PascalABC.NET, но все кроме writeln() должно работать и на TurboPascal.
 вводит числа рандомно и находит среднее арифметическое
 чётных чисел и среднее арифметическое индексов нечётных чисел.
}

PROGRAM A4;
const
    num = 16;
var
    MT:array [1..num] of byte;// массив чисел
    i,j:byte;// счетчики
    even_sum:integer;// сумма четных
    even_num:byte;// количество четных

    indx_sum:integer;// сумма нечетных индексов
    indx_num:byte;// количество нечетных индексов
    
BEGIN
  // условно ввели набор чисел
  randomize();
  for i:=1 to num do
    MT[i] := random(256);
  writeln('Начальный массив ', num ,' случайных чисел');
  writeln(MT);
 
  // сам алгоритм
  even_sum := 0;
  even_num := 0;
 
  indx_sum := 0;
  indx_num := 0;
 
  writeln(' ');
  write('Четные числа: ');

  for i:=1 to num do begin
    if not odd(MT[i]) then begin
      write(MT[i], ' ');
      even_sum := even_sum + MT[i];
      even_num := even_num + 1;
    end;
    if odd(i) then begin
      indx_sum := indx_sum + i;
      indx_num := indx_num + 1;
    end;
  end;
 
  writeln(' ');
  writeln('Количество четных чисел ', even_num);
  writeln('Среднее арифметическое четных чисел = ',
           even_sum, '/', even_num , ' = ', even_sum/even_num );
 
  writeln(' ');
  writeln('Количество нечетных индексов нечётных чисел ', indx_num);
  writeln('Среднее арифметическое индексов нечётных чисел ',
           indx_sum, '/', indx_num, ' = ', indx_sum/indx_num);
END.