Определить количество работников, заработная плата которых за
месяц с номером 1 составила больше 6000 руб.

Как примерно надо сделать показано на фотография

1 вариант

номер 1

Саша- Самойлов
Володя- Левин
Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа)
Юра- Богачёв

номер 2

переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание)
(получилось и у той и у другой мёда по 3 литра)
Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание)
последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)

почему-то решилось за 3 переливания

номер 3

2,4,8,10,20,22,44,46...

Прибавление 2, умножение на 2, прибавление 2 и так далее

3,6,12,15,30, 33...

Прибавление 3, умножение на 2, прибавление 3 и т.д

1,3,4,12,13, 39, 40, 120, 121...

Умножение на 3, прибавление 1, умножение на 3 и т.д

Второй вариант решается аналогично

Объяснение:

program ArrayOf50;

const

   ArraySize = 50; {Определяем размен массива}

   

var

   x: array[1..ArraySize] of integer;

   i, PosCount, NegCount : integer;

   

begin

   PosCount :=0; NegCount :=0; {Устанавливаем счетчики пол. и отр. чисел}

   for i:=1 to ArraySize do begin {Цикл ввода данных}

       Write('Input ', i, '-th element of array: ');

       ReadLn(x[i]);

   end;

   for i:=1 to ArraySize do begin {Цикл обработки данных}

       if x[i] > 0 then PosCount := PosCount+1; {считаем положительные}

       if x[i] < 0 then NegCount := NegCount+1; {считаем отрицательные, нули в расчет не берутся!}

   end;

   Writeln('There are ', PosCount, ' positive numbers.');

   Writeln('This is ', PosCount - NegCount, ' more than negatives');

end.