Ответы на егэ информатика 42 регион 4 ибня​

Program ulitka; var sunnyday: array [1..30] of boolean; a, b, c, i: integer; begin writeln('a = '); readln(a); writeln('b = '); readln(b); b : = b * 100; randomize; for i : = 1 to 30 do begin       if random(2) = 1 then sunnyday[i] : = true else sunnyday[i] : = false; end; for i : = 1 to 30 do begin   if sunnyday[i] = true thenbegin     a : = a + 2;     if a > b then     a : = b;   end   else   begin     a : = a - 10;     if a < 0 then     a : = 0;   end;   end; writeln('дни месяца были таковы: '); for i : = 1 to 30 do begin if sunnyday[i] = true then writeln(i, '. солнечный') else writeln(i, '. пасмурный') end; writeln('к концу 30 дня местоположение улитки равно ', a, ' см над землей'); end.

Var day: array[1..30] of boolean; i, pos, tree_height : integer; begin   readln(pos, tree_height);   for i : = 1 to 30 do       day[i] : = (random(100) > 30);   for i : = 1 to 30 do begin       if day[i] then pos : = pos + 2       else pos : = pos - 10;       if pos > tree_height then pos : = tree_height;       if pos < 0 then pos : = 0;       writeln('день ', i: 2, '(', day[i]: 5,') pos = ',pos);   end;   writeln(pos); end.