1. написать программу, вычисляющую значение функции y=x-24 2. написать программу, вычисляющую значение функции (y=f(x)) y=x-2, если x> 0, y=0, если x=0, y=x*x, если x< 0

Var x,y: integer;     begin  write('введите х: ');     readln(x);   y: =x-24    writeln(y); end.2)var x,y: integer;     begin  write('введите x: ');   readln(x);   if x> 0 then y: =x-2  else if x< 0 then y: =x*x    else y: =0;   writeln(y); end.

Преобразование двоичных чисел в десятичные допустим, дано двоичное число 1100012. для перевода в десятичное запишите его как сумму по следующим образом: может потребоваться перевести десятичное число в двоичное. один из способов – это деление на два и формирование двоичного числа из остатков. например, нужно получить из числа 77 его двоичную запись: 77 / 2 = 38 (1 остаток) 38 / 2 = 19 (0 остаток) 19 / 2 = 9 (1 остаток) 9 / 2 = 4 (1 остаток) 4 / 2 = 2 (0 остаток) 2 / 2 = 1 (0 остаток) 1 / 2 = 0 (1 остаток) собираем остатки вместе, начиная с конца: 1001101. это и есть число 77 в двоичном представлении. проверим:

Program mas2; uses crt; var a: array[1..5] of integer; b: array[1..5] of integer; t,i,m1,m2: integer; begin randomize; clrscr; writeln('vvedite t'); readln(t); for i: =1 to 5 do   a[i]: =random(t+1);   b[i]: =random(t+1);   if a[i]< t then m1: =m1+1     else   if b[i]< t then m2: =m2+1;       if m1> m2 then   begin   for i: =1 to 5 do   write('  ',a[i])   end   else   for i: =1 to 5 do   write('  ',b[i]);   writeln;   end. может не совсем красиво, но зато