1) 66
2) 25
3) 110
Наслаждайся решением так сказать
Var x,y,r:real;
begin
write ('Введите 2 числа х и у '); Readln(x,y);
r:=x*x+y*y/abs(x*y)+5;
writeln( 'Значение выражения = ' , r);
end.
Program rasst;
<span>var norma, vsego: real; </span>
<span>den: integer; </span>
<span>begin </span>
<span>norma:=10; </span>
<span>vsego:=10; </span>
<span>den:=2; </span>
<span>while den<8 do begin </span>
<span>norma:=1.1*norma; </span>
<span>vsego:=vsego+norma; </span>
<span>den:=den+1 </span>
<span>end; </span>
<span>writeln('Общий пробег=',vsego) </span>
<span>end.</span>
-9
код на vbscript
Sub Zadanie()
a=7
a=a -4
b=-a
c = -a+2*b
MsgBox c
End Sub
Call Zadanie()
Прозрачный менее нагружает оперативную память, потому и удобнее и наоборот.