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

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.

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.

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

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.