//PascalABC.Net 3.1.0.1200
var
    x0, xk, dx, x: real;

function f(x: real): real;
begin
    f := x * x * x + 3;
end;

begin
    write('Введите промежуток и шаг ([a,b] h) ');
    readln(x0, xk, dx);

    x := x0;
    writeln(' x ':10, ' | ', ' f(x) ':10);

    repeat
        writeln(x:10:3, ' | ', f(x):10:3);
        x := x + dx;
    until x > xk;
end.

0 0

1 год назад

ПАМАГИТЕ! на языке паскаль:В танцевальный коллектив набирают учеников, измеряя их вес V и рост R. В коллектив пройдут только те,

Мариселька [2]

<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>

begin

Println(ReadInteger('v=')<=ReadInteger('r=')-100?'Пройдет':'Не пройдет');

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Всего в классе 40 человек, на автобусе приезжают 20, на троллейбусе 10. 5 едут на обоих видах транспорта. Сколько учеников ходят