Function f(a,b:real):real;
begin
if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a;
end;
var t,m,s:real;
begin
write('t = '); readln(t);
write('m = '); readln(m);
s:=sqr(f(2*t+m,t*m))+sqr(f(3*m,2*t));
writeln('S = ',s);
end.
Пример:
t = 2
m = 3
S = 794
<span>y:=t; - нельзя присваивать переменную одного типа переменной другого типа.
y:=pred(winter); - не существует предшественника у значения </span><span><span>winter.
</span>t:=cold; - неверное (недопустимое) значение переменной для типа t
<em><u>Ответ:</u></em> допустимы присваивания </span><span>x:=pred(spring); и </span><span><span>t:=warmth;</span></span>
1.
5|10|19|12
диск
2.
64*32*10=20480
65536=2^16
16*20480=327680/8=40960КБ
3.
1280*1024=1310720
32=2^5
1310720*5=65513600Б
5 градусов
наивысшая точка 6, наименьшая 1. Разность равна 5
...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.