Сисой
5 год назад
Пожалуйста посчитайте решить плиз...
ОТВЕТЫ
Милана
Oct 24, 2020
//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.
745
Смежные вопросы:
