|
program zad1;
var \ описание переменных
q,x,y:real; \ 3 переменных, действительные числа
begin \ начало программы
Write('Q = '); \выводится на экран Q=
Readln(Q); \читает Q, которое ты ввел
Write('X = ');Readln(X); \тож самое
y:=((sqr(x)*sqr(x))*(x+q)+sqr(q)*cos(x+q))/sqrt(abs(x+q)); \у равен х в четвертой степени(дважды в квадрат)... и т.д. ...
Writeln('Y = ',y:3:3); \выводится на экран у с тремя знаками после запятой
readln; \ при нажатии энтер окно закрывается
end.
|