Найти сумму 4+9++m^2, лишь из слагаемых, меньших k.

uses crt; var m,p,i:integer; begin write('M = '); read(m); p:=1; for i:=1 to m do begin p:=p*(2*i+1); end; write('p = ',p); end.

Можно решить арифметически:
program zad;
var m:integer;
begin
read(m);
writeln((m*(m+1)*(2*m+1))/6-1);
end.

Ғаламтор (ағылш. Internet, МФА: [ˈɪn.tə.net]) — біріккен компьютерлік желілердің әлемдік жүйесі үшін ақпаратты сақтау және беру. Жиі айтылатын Бүкіләлемдік желі мен Ғаламдық желісі, сондай-ақ жай ғана Желі. Базасында құрылып, стек TCP/IP хаттамалар. Негізінде, Интернет жұмыс істейді, Всемирная паутина (World Wide Web, WWW) және басқа да көптеген жүйелері деректер.30 маусым 2012 жылы пайдаланушылардың саны үнемі пайдаланатын Интернет құрады, одан 2,5 млрд адам, үштен бір бөлігі Жер шарының пайдаланып Интернет.2015 жылдың ортасында пайдаланушылар саны жетті 3,3 млрд адам. Бұл-көбіне-көп себепші болды кең таралуымен ұялы желілерін интернетке 3G және 4G стандарттарын дамуымен, әлеуметтік желілер мен арзандатылған құны, интернет-трафиктің[1]. 

Школьные Знания.com

Задай вопрос из школьного предмета
10 - 11 классы Информатика 5+3 б

Задача матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (М 6) необходимо решение и блок-схема
Попроси больше объяснений Следить Отметить нарушение Toma74 10.05.2014
Реклама

ответы и объяснения
AdaLavleis
AdaLavleis Умный
Program Max_element_massiva ;
Var i, n, max : integer ;
A : array [1..100] of integer;
Begin Writeln('Введите количество элементов массива') ;
Readln(N) ;
Randomize;
For i := 1 to N do
begin A[i] := Random(100);
Write(A[i]);
end;
Max := A[1];
For i := 2 to N do
if A[i]>Max then Max := A[i];
Writeln('Максимальный Элемент массива = ',Max) ;
Readln ;