Var a,b,p:integer; d: real;
begin
readln(a,b);
p:=2*a+2*b;
d:=sqrt(sqr(a)+sqr(b));
writeln('периметр- ',p,' ' ,' диагональ- ',d)
<span>end.</span>
Вот, QBasic
INPUT x
PRINT 3*x^6*x^2-7
Основными областями применения устройств ввода графической информации <span>являются системы автоматизированного проектирования, обработки </span><span>изображений, обучения, управление процессами, мультипликации и многие </span><span>другие
</span>
Витя нарисовал лес в горах. Петя нарисовал лес. Даша нарисовала горы