4 года назад

Вычислить (1+2) * (1+2+3) * (1+2+3+4) * ... (1+2+... +10) программа Паскаль срочно

1 ответ:

0 0

Program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do
begin
g:=g+i+1;
h:=g*h;
end;
Writeln(h);
<span>end. </span>

Читайте также

СРОЧНЯК Составьте программу, которая рисует треугольник со сторонами красного, синего, зелёного цвета, с координатами вершин (12

vebah [14]

Uses GraphAbc; begin SetWindowSize(300,200); SetPenWidth(4); SetPenColor(clRed); Line(120,40,160,120); SetPenColor(clBlue ); Line(160,120,60,160); SetPenColor(clGreen); Line(60,160,120,40); end.

0 0

4 года назад

ПОМОГИТЕ!ПОЖАЛУЙСТА!ОЧЕНЬ СРОЧНО!ИНФОРМАТИКА! Решить в Паскале три задачи: 1) Дан двумерный массив, найти количество отрицательн

rem-rebel [178]

Const
   N = 4;
Var
   A:array[1..N,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('1)');
k:=0;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ');
        if A[i,j] < 0 then k:=k+1;
        End;
    WriteLn
    End;
WriteLn('k = ',k);
WriteLn('2)');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        if j > i then A[i,j]:=100;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn('3)');
For i:= 1 to N div 2 do
    Begin
    For j:= 1 to N do
        Begin
        k:=A[i+N div 2,j];
        A[i+N div 2,j]:=A[i,j];
        A[i,j]:=k;
        End
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Write(A[i,j]:3,' ');
    WriteLn
    End;
End.

1)
10   2 -9   4
-10   5 -5 -10
4   9   4 10
3 -9 10 -6
k = 6
2)
10 100 100 100
-10   5 100 100
4   9   4 100
3 -9 10 -6
3)
4   9   4 100
3 -9 10 -6
10 100 100 100
-10   5 100 100

0 0

4 года назад

Ребят,есть код,который выдает максимальный элемент массива,мне нужна помощь с его подсчетом,кусок кода: с++ { cin >> nums[

наталья пастушенко

{
cin>>nums[i]
if(nums[i]>max)
{
max=nums[i];
maxCount++;
}
}
cout<<maxCount<<endl;

0 0

4 года назад

помогите решить задачи про программированию1. В корзине лежат яблоки, апельсины и гранаты. Положите все яблоки на стол, а апельс

ма-ри-я1980 [49]

Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>

0 0

4 года назад