Помогиите пожалуйста срочно(( Для заданных с клавиатуры значений переменных x и n вычислить Y = -x + 4x - 9x + ... - 81 x.. (Программирование циклических алгоритмов с заданным числом повторений в Pascal ABC)
Помогиите пожалуйста срочно((
Для заданных с клавиатуры значений переменных x и n вычислить
Y = -x + 4x - 9x + ... - 81 x..
(Программирование циклических алгоритмов с заданным
числом повторений в Pascal ABC)
Гость
Ответ(ы) на вопрос:
Гостьvar
sgn,i:integer;
X,Y:real;
begin
Write('Введите Х: '); Read(X);
Y:=0; sgn:=-1;
for i:=1 to 9 do
begin
Y:=Y+sgn*sqr(i)*X;
sgn:=-sgn
end;
Writeln('Y=',Y)
end.
Тестовое решение:
Введите Х: 3.184
Y=-143.28
Не нашли ответ?
Похожие вопросы