Const xn=1.5; xk=4.5; h=0.05;
var x,y,xmin,ymin:real;
i:integer;
begin
x:=xn;
xmin:=x; ymin:=exp(x)-x*x*x;
for i:=1 to round((xk-xn)/h) do
begin
x:=x+h;
y:=exp(x)-x*x*x;
if y<ymin then
begin
xmin:=x; ymin:=y;
end;
end;
writeln('xmin = ',xmin:5:2,' ymin = ',y:7:5);
end.
Результат:
<span>xmin = 3.75 ymin = -1.10787</span>
Систем где обмениваются сообщениями(письмами) называется: Интернет
Тебе две программы или одну?
// Язык Pascal
Var i : integer;
Begin
for i:= 5 to 20 writeln(i);
for i:=45 to 60 writeln(i);
end.
Да, я серьезно, это будет работать. Это две задачи в одной. Поползут цифры в столбик, с 5 до 20, потом резко с 45 до 60, а потом программа закроется
Ответ:
1) 35
У нас написано, что s:=0
От k= 14 до 18 прибавляем каждый раз +7
s 7 14 21 28 35
k 14 15 16 17 18
2) 132
Тут такая же схема s:=0
От k=1 до 11 прибавляем к s +12
s 12 24 36 48 60 72 84 96 108 120 132
k 1 2 3 4 5 6 7 8 9 10 11
3) 45
Тут s=100
От k=0 до 10 мы отнимаем от s -5
s 95 90 85 80 75 70 65 60 55 50 45
k 1 2 3 4 5 6 7 8 9 10
<span>print(sum(map(int, input().split())))
</span>