Напишите , как написать во free pascal число в степени i+1. вот сама программа: program zadacha; var k, s : double; n, i : longint; begin k: =0 readln(n); s: =-1; for i: =1 to n do k: =k+exp((i+1)*ln(s)); writeln(k: 0: 6); readln; end. вот условие : дано натуральное число n. найдите сумму 1−1/2+1/3−+(−1)n+1/n. формат входных данных: вводится целое число n(1≤n≤100000 формат выходных данных: требуется вывести одно число — значение выражения c точностью до шестого знака после запятой. примечания: условный оператор и оператор возведения в степень использовать запрещается.
Ответы
Увас программа считает не формулу, в условии. если делать по условию, то: s : = 0; i : = 1; while (i < = n) do begin s : = s + 1/n; inc(n,2); end; i : = 2; while (i < = n) do begin s : = s - 1/n; inc(n,2); end;
// pascalabc.net 3.0, сборка 1076 var a,b,c,p,s: real; begin writeln('введите через пробел стороны треугольника: '); read(a,b,c); if (a+b> c) and (a+c> b) and (b+c> a) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника равна ',s) end else writeln('невозможно построить треугольник') end. тестовые решения: введите через пробел стороны треугольника: 10 15 13.6 площадь треугольника равна 66.3272183948641 введите через пробел стороны треугольника: 5 8 20.4 невозможно построить треугольник
// pascalabc.net 3.0, сборка 1076 var s,ss: string; i,n,p: integer; begin write('введите строку: '); readln(s); n: =length(s); p: =pos(',',s); if p in [1..n-1] then begin ss: =copy(s,p+1,n-p); n: =length(ss); p: =pos(',',ss); if p=0 then writeln(ss) else writeln(copy(ss,1,p-1)) end else writeln('*** нечего выводить ***') end. тестовые решения: введите строку: 01234,45679,1011213,14151617 45679 введите строку: 01234,45679101121314151617 45679101121314151617 введите строку: 01234, *** нечего выводить ***
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В каком случае маршрутизатор может играть роль коммутатора?
Автор: tany821
Найти произведение чисел больше 7 в паскале с while
Автор: erere4443