Нужно решить программы на языке Си

1. Написать функцию, вычисляющую объем пирамиды, в основании которой лежит квадрат, по стороне основания и высоте. Все данные передаются в функцию в виде параметров. В основной программу организовать ввод переменных с консоли. Вычислить 10 объемов с разными исходными данными, не забыть проверку корректности ввода пользователем.

2. Написать программу, которая выдает значение функции Y = 6x2 + arctg(x), угол вводится в градусах. Перевод в радианы и поиск значения Y выполнить в функции, куда x передается в виде параметра.

и какая вероятность что пользователь не

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

наверняка двоичные числа надо только определить где ноль а где один

наверно о - one

10101

10110

10111

11000

11001

вроде как сходится, продолжаем

11010

11011

11100

11101

11110

11111

обратную замену самостоятельно

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.