Напиши значення змінної S, якого вона набуде після виконання таких операторів: 1)s:=4; i:=1; repeat s:=s+1/i; i:= i-1 until i<=1; 2)s:=2; i:=1; repeat s:=s+1/(i+1); i:=i+3 until i>=5; 3) s:=1; i:=1; repeat i:=i+1; s:=s+i until i>3 БУДЬ ЛАСКА, ДУЖЕ ТРЕБА♥️

1) 4

2) 2

3) 1

Желтые      Красные    Зеленые
  6                  6              0
  8                  0              4
  7                  3              2

Вот программка на Паскале:

uses Crt;
var g, k, z:integer;

begin
 ClrScr;
 for g:=0 to 12 do
   for k:=0 to 12 do
      for z:=0 to 12 do
          begin
             if (g+k+z=12)  and (0.5*g+1.5*k+2*z=12) then
                WriteLn (g,' ',k, ' ', z);
          end;
 ReadLn;
end.

Вывод: Можно вообще не брать красные или зеленые шары.
Если брать шары всех цветов, то ответ у задачи один
7   3   2

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

var n,k: real;
begin 
   writeln('Введите количество ящиков мыла завезенных на склад');
  readln (n);
  writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');
  readln (k); 
  n:=n-(10*k);
  If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')
          else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла');
end.