Паскаль : каждый солнечный день улитка, сидящая на дереве, поднимается вверх на 2 см., а каждый пасмурный день опускается на 1 см. в начале наблюдений улитка находится на а см. от земли на в-метровом дереве. имеется 30-элементный массив, содержащий сведения о том, был ли соответствующий день наблюдения пасмурным или солнечным. написать программу, определяющую местоположение улитки к концу 30-го дня наблюдений.

298

439

Посмотреть ответы 3

Ответы на вопрос:

rufergem

Информатика

4,8(14 оценок)

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.

Крахмал16

Информатика

4,6(68 оценок)

Uses crt; const n=30; var c: array[1..n] of integer; a,b,i: integer; begin randomize; writeln('на какой высоте была улитка'); readln(a); writeln('ведите длину ветки'); readln(b); for i: =1 to n do begin c[i]: =random(2)-0; {1-солнечно; 0-пасмурно} writeln(c[i]); end; writeln; for i: =1 to n do if (c[i]=0) then a: =a-1 else a: =a+2; writeln(a,'см'); if a> b then writeln('улитка переползла ветку'); if a=b then writeln('улитка вернулась в начальное положение'); if a=0 then writeln('улитка спустилась до земли'); end.

Kamilla1351

Информатика

4,8(50 оценок)

Dim massiv(9) as integer dim x as integer dim msg as string for x=0 to 9 massiv(x)=inputbox("введите число №" & x+1) if massiv(x) mod 3 =0 then msg=msg & "число " & massiv(x) & " кратно 3." & vbcrlf next msgbox (msg)