ответ
Если пишешь на Паскале то-
1 Program Summ; // Название программы
2 Var i, summ: integer // Объявляем переменные: i для числа, summ для суммы. Обе переменные — целочисленные (integer)
3 Begin // Начало программы
4 Summ:=0; // Обнуляем сумму
5 Writeln('Write n'); // Просим юзера ввести n
6 For i:=1 to n do // Цикл для i от одного до n
7 Begin // Начало цикла
8 If i mod = 2 then // Условие для числа — число должно быть четным
9 Begin // Начало цикла
10 summ:=summ+i; // Прибавляем к сумме число (если выполняется условие, см. выше)
11 End; // Конец цикла для If
12 End; // Конец цикла для For
13 Writeln(summ); // Выводим сумму
14 Readln; // Ждем нажатия Enter (чтобы программа не закрывалась сразу после вывода суммы, иначе юзер не успеет прочитать ее)
15 End. // Конец программы
Объяснение:
var
x, y: real;
begin
write ('Введите x: '); readln(x);
y := 3*sqr(x)+2*x/(x-1)*(x-2)+sqrt(3*x)+1/sqr(x);
write ('y = ', y:0:3);
end.
Проверьте скобки, у вас в задании скорее всего неправильно. Я думаю, должно быть вот так - (3х^2+2х)/((х-1)(х-2))+(√3х+1)/х^2
Я написал, как в задании. Если вы неправильно в задании написали, дайте знать, я поправлю в решении.