Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
2
Добавлен:
15.06.2014
Размер:
216 б
Скачать
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.
Соседние файлы в папке лабы 5