Var a,S:integer;
Begin
Writeln("Введите сторону квадрата a");
Readln(a);
S:=sqr(a);
Writeln("Площадь квадрата S=",S);
readln;
end.
<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 дюйм = 2,54 см
15,24 см * 15,24 см = 6 дюймов * 6 дюймов
Количество точек сканированного изображения = 600*1200*6*6
Объем изображения = 600*1200*6*6*8 бит = 600*1200*6*6*8/8 байт = 600*1200*6*6/1024 Кбайт = 25312,5 Кбайт = 25312,5/1024 Мбайт ≈ 25 Мбайт