Данное выражение можно упростить:
(3n+√6n)/√3n = 3n / √3n + √6n / √3n = √3n * √3n / √3n + √(6n / 3n) = √3n + √2
Код PascalABC:
Const
Sqrt2 = Sqrt(2);
Function C(n:integer):real;
Begin
result:=Sqrt(3*n)+Sqrt2;
End;
Function Sum(n:integer):real;
Begin
result:=0;
For n:= 1 to n do
result:=result+C(n);
End;
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('x = ',Sum(n))
End.
Пример работы программы:
n = 3
x = 11.4241812374713
Примечание:
Чтобы программа работала на Turbo и Free Pascal, нужно заменить result, на имя функции, в которой он используется.
Ответ:
Приложил скрин, т.к тут выглядит плохо
ꟷꟷꟷꟷꟷꟷ
Не забывайте сказать "Спасибо"! и, если ответ удовлетворил, то выберите его как "Лучший"
Бодрого настроения и добра!
Успехов в учебе!
ответ на первый вопрос - второе
1)попросить маму пришить пуговицу
2)напомнить маме пришить пуговицу
3)ещн раз попросить маму пришит пуговицу
4)расплакаться
5)получить готовый результат
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.