Вычислите и определите тип данных результата а)квадрат числа 1,5 б)даны числа 356, 845, 663 найдите максимальное число и укажите тип данных

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

-a*b+c                                                                                                     

not a and b or c

1. делим a и b на 33.

2. округляем вверх (до следующего целого)

3. перемножаем округлённые числа.

4. делим на n.

5. округляем вверх.

формулой: x = [([a/33]+1)*( [b/33]+1) / n]   + 1

где [y] - целая часть числа y. 

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)