1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.
Переведём 28 из 6-ой с.с. в 10-ую:
расставляем 0 под 8, а 2 под 1,
1*6^1+8*6^0=6+8=14.
Значит, получается, что наим ближайшее целое число 14-1=13.
Но с ответом я НЕ 100% уверена.. скорей всего будет 13, но может 14..
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Я напишу это программу на языке С++
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n,i=1;
cin>>n;
while(pow(i,2)<=n) {
cout<<pow(i,2)<<" ";
i++; }
return 0;}