В таблице Dat хранятся данные измерений среднесуточной
температуры за неделю в градусах (Dat[1] – данные за понедельник,
Dat[2] – за вторник и т.д.). Определите, что будет напечатано в
результате работы следующей программы.

Var k, m: integer;
Dat: array[1..7] of integer;
Begin
m:=0;
Dat[1]:=15; Dat[2]:=18;
Dat[3]:=22; Dat[4]:=20;
Dat[5]:=23; Dat[6]:=24;
Dat[7]:=20;
for k:=1 to 7 do begin
if Dat[k] >20 then
m:=m+1;
end
write(m);
End.

В операторе y:=x*x+4/x+3 используется операция деления, которая всегда возвращает вещественный тип. Следовательно, и всё выражение в правой части всегда будет иметь вещественный тип. А в левой части стоит переменная целого типа. Присваивание вещественного значения целочисленной переменной запрещено правилами языка Паскаль.
Чтобы избавиться от ошибки, нужно знать алгоритм, который реализует программа. В зависимости от алгоритма может быть использована операция целочисленного деления, может быть использована функция Trunc(), возвращающая целочисленное значение аргумента, либо переменная y должна объявляться вещественной.

В операторе y:=x*x+4/x+3 используется операция деления, которая всегда возвращает вещественный тип. Следовательно, и всё выражение в правой части всегда будет иметь вещественный тип. А в левой части стоит переменная целого типа. Присваивание вещественного значения целочисленной переменной запрещено правилами языка Паскаль.
Чтобы избавиться от ошибки, нужно знать алгоритм, который реализует программа. В зависимости от алгоритма может быть использована операция целочисленного деления, может быть использована функция Trunc(), возвращающая целочисленное значение аргумента, либо переменная y должна объявляться вещественной.