1) var y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;
writeln('y = ',y);
end.
2) var y,x,z:real;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение y: ');
readln(y);
z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);
writeln('z = ',z);
end.
3) var y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);
writeln('y = ',y);
end.
4) var y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);
writeln('y = ',y);
end.
"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.
"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"
Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"
"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного .
N,K:integer;
Begin
Write('N = ');Read(N);
Write('K = ');Read(K);
Write((N>9)and(N<100)and(N mod K = 0));
End.