В ячейке электронной таблицы К7 записана формула =H7/G$7. Какая формула получится из нее при копировании в ячейку К10? 1) =H10/G$10 2) =H10/G10 3) =H10/G$7 4) =$H$10/G10

program Number_of_mounth;

var month:byte;

begin

write('Введите номер месяца:');

readln(month);

if(month<1)or(month>12)then

writeln('Вы ввели неправильный номер месяца!')

else

begin

write('Название месяца:');

case month of

1:writeln('Январь');

2:writeln('Февраль');

3:writeln('Март');

4:writeln('Апрель');

5:writeln('Май');

6:writeln('Июнь');

7:writeln('Июль');

8:writeln('Август');

9:writeln('Сентябрь');

10:writeln('Октябрь');

11:writeln('Ноябрь');

12:writeln('Декабрь');

end;

write('Количество дней в месяце:');

case month of

1,3,5,7,8,10,12:writeln('31');

4,6,9,11:writeln('30');

2:writeln('28 или 29');

end;

write('Времягода:');

case month of

1,2,12:writeln('Зима');

3,4,5:writeln('Весна');

6,7,8:writeln('Лето');

9,10,11:writeln('Осень');

end;

if not (month=1)then writeln('Это не первый месяц в году');

if not (month=12)then writeln('Это не последний месяц в году');

end;

Объяснение:

Ошибка была в объявлении переменой а именно в начале блока бегин к переменой month задавался тип byte, это делает до начала блока в Var

const

 n = 3;

var

 a: array[1..n, 1..n] of integer;

 i, j, k, sum, sum2, x: integer;

begin

 sum := 0;

 sum2 := 0;

 randomize;

 writeln('Исходный массив');

 for i := 1 to n do

 begin

   for j := 1 to n do

   begin

     a[i, j] := 1 + random(50);

     write(a[i, j]:4);

     sum := sum + a[i, j];

     if a[i, j] mod 3 = 0 then

       sum2 := sum2 + a[i, j]

   end;

   writeln;

 end;

 Writeln('Сумма всех элементов массива: ', sum);

 Writeln('Сумма всех элементов массива кратных 3: ', sum2);  

end.