Ответы
Ответ дал:
0
//PascalABC.Net 3.2.0.1467
const
y0 = 1.5;
dy = 0.5;
yk = 4;
begin
var y := y0;
repeat
Writeln('z(', y, ') = ', 4 * (1 - y * y));
y := y + dy;
until y > yk;
end.
const
y0 = 1.5;
dy = 0.5;
yk = 4;
begin
var y := y0;
repeat
Writeln('z(', y, ') = ', 4 * (1 - y * y));
y := y + dy;
until y > yk;
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад