Бази даних SQL !
Знайдіть альбоми з 12 або більше композиціями.

266

489

Посмотреть ответы 1

Ответы на вопрос:

Саша5601

Информатика

4,6(47 оценок)

Первый вариант: var a,n: longint; s,p: real; begin write('введите количество членов последовательности(не менее одного): '); readln(n); s: =1; p: =1; for n: = 0 to n-1 do begin p: =p*(2+n*3); s: =s-p end; writeln('s = ',s); end. второй вариант: var a,n: longint; s,p: real; begin s: =1; p: =1; for n: = 0 to 3 do begin p: =p*(2+n*3); s: =s-p end; writeln('s = ',s); end.