
Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы Паскаль / лабы 5 / LAB_3_1
.PAS program lab3_1;
var
x, y : real;
i :integer;
begin
writeln('Vvedite X: ');
readln(x);
y := 0;
for i:=5 to 20 do begin
y := y + (x*x / (2*i - 1));
end;
writeln('Y = ', y);
readln;
end.
var
x, y : real;
i :integer;
begin
writeln('Vvedite X: ');
readln(x);
y := 0;
for i:=5 to 20 do begin
y := y + (x*x / (2*i - 1));
end;
writeln('Y = ', y);
readln;
end.
Соседние файлы в папке лабы 5