Ответы на вопрос:
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 then begin a : = a + 2; if a > b then a : = b; end else begin a : = a - 1; 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, ' см над землей'); readln; end.
Популярно: Информатика
-
travisbeats18.02.2022 06:50
-
Masha815703.02.2021 08:52
-
borronwolf22.03.2020 09:35
-
OgoKatya04.11.2022 14:20
-
Kondor133716.12.2021 14:23
-
mafia4227.03.2020 06:22
-
daniellarussel105.05.2023 23:10
-
skskkslslw29.10.2020 14:33
-
makssabarov12.12.2022 08:57
-
Юліяcoolgirl25.04.2020 10:35