Var a,b,c:integer;
begin
readln(a,b,c);
if (a<=b) and (b<=c) then
begin
a:=a*a;
b:=b*b;
c:=c*c;
end
else if (a>b) and (b>c) then
begin
if a<b then a:=b;
if a<c then a:=c;
b:=a; c:=a;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1)
end;
writeln(a:4, b:4, c:4);
<span>end.</span>
Различают следующие типы меню:
по исполнению: текстовое графическое;
по функциям: главное меню приложения; всплывающее меню; контекстное меню; <span>системное меню.
Компьютерное меню - это меню через которое мы можем делать разные действия.</span>
0,125*1024=128Кб
128*1024=131 072байт
Var a,b,c,p,s:real;
begin
write('Нижнее основание: ');
readln(a);
write('Верхнее основание: ');
readln(b);
write('Боковая сторона: ');
readln(c);
p:=a+b+2*c;
s:=(a+b)/2*sqrt(sqr(c)-sqr((a-b)/2));
writeln('Периметр: ',p);
writeln('Площадь: ',s);
<span>end.</span>
Ответ в) письмо это источник информации