<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a,b,x,y:real;
Writeln('Введите a,b,x,y'); Read(a,b,x,y);
var F:=cos(Power(x,a-b))/(Abs(Power(y,4)-Power(y,5))+5.4)+n*n;
Writeln('F=',F)
end.
<u>Пример</u>
n= 14
Введите a,b,x,y
1.35 0.58 6.2 3.19
F=195.99743737259
program qq;
var a,b:integer; s:real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
s:=sqrt(a+(b/a*a)-b);
writeln('S=',S);
end.
Scratch,Free Pascal , Lazarus, Python.
Свойства карандаша:деревянный,прочный,упругий.
Свойства стола:деревянный,искуственный,твердый.
Свойства дерева:естественный,гибкий.