<span>a) y=3
</span><span>b)y=13
</span><span>c)y=6
</span><span>d)y=1
</span><span>e) y=11
</span><span>f) y=2</span>
<span>REM func</span>
<span>INPUT a,b,c</span>
<span>IF (a^2-b)*(c-b^2)<>0 THEN</span>
<span>D=(a^2-b)*(c-b^2)/3</span>
<span>PRINT D</span>
<span>ELSE</span>
<span>PRINT "Реш.нет"</span>
<span>END IF</span>
<span>End</span>
А) a, b, S
б) karts, karkol, tetts, tetkol
Нужно написать программу как я понял:
Тебе нужно составить массив считающий сумму времени от первой строки до 40ой, первый элемент массива(arr[i]) = 1;
К каждому последующему элементу массива добавляешь 10%;
Создаешь еще одну переменную , допустим k = 0;
в нее записываем результаты;
arr[i]= arr[i]+ 10%;
k= k + arr[i];
, и все это нужно делать до времени i >=40;
Затем нужно вывести значение k;
Это и будет потраченное время
Var h,v,t,t1:real; i:integer;
begin
v:=200/60; // м/мин
t:=0;
h:=3000;writeln(' h t');
for i:=1 to (4200-3000) div 100 do
begin
t1:=100/v;
t:=t+t1;
h:=h+100;
writeln(h:4:0,' ',t:5:1);
v:=v*0.9;
end;
writeln(t:5:1,' мин');
end.
Результат:
<span> h t
3100 30.0
3200 63.3
3300 100.4
3400 141.5
3500 187.2
3600 238.1
3700 294.5
3800 357.2
3900 426.9
4000 504.4
4100 590.4
4200 686.0
686.0 мин</span>