Представь члены этой суммы в таком виде: 2/3 = 2*1^2/3, 8/3 = 2*2^2/3,
18/3 = 2*3^2/3
То есть они все построены по общей формуле 2n^2/3.
Под "..." скрываются члены от 4 до 15.
S = 2*1^2/3 + 2*2^2/3 + 2*3^2/3 + 2*4^2/3 + 2*5^2/3 + 2*6^2/3 + 2*7^2/3 +
2*8^2/3 + 2*9^2/3 + 2*10^2/3 + 2*11^2/3 + 2*12^2/3 + 2*13^2/3 + 2*14^2/3 +
2*15^2/3
В цикле, естественно, надо менять номер n. Примерно так:
var n: integer, S: double;
BEGIN
S:=0; n:= 1;
While n <= 15 do
begin
S:= S + 2*n*n/3;
n:=n+1;
end;
write S;
END.
Эта программа может выглядеть так:
uses Crt;
const n=20;
type Mas=array [1..n] of integer;
var A: Mas;
i, Sum, Col, Sred: integer;
begin
ClrScr;
Randomize;
Sum:=0;
for i:=1 to n do
begin
A[i]:=-10+random(26);
Write (A[i]:4);
Sum:=Sum+A[i];
end;
WriteLn;
Sred:=Sum div n;
WriteLn('Srednee:',Sred:4);
Col:=0;
for i:=1 to n do
if A[i]=Sred then Col:=Col+1;
WriteLn('Col=', Col);
ReadLn;
end.
#include <iostream>
#include <clocale>
#include <cstdlib>
using namespace std;
void main(){
setlocale(LC_ALL, "");
int x, y;
cout << "Введите X и Y =>";
cin >> x >> y;
if (x == 0 || y == 0) { cout << "\nНе используйте 0!\n"; system("Pause"); exit(1); }
if (x > 0 && y > 0) cout << "\nПервая четверть\n";
else if (x < 0 && y > 0) cout << "\nВторая четверть\n";
else if (x < 0 && y < 0) cout << "\nТретья четверть\n";
else if (x > 0 && y < 0) cout << "\nЧетвертая четверть\n";
system("Pause");}
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26
Для создания рекламы приглашений и т.д
