1 год назад

Написать алгоритм вычислениянаписать алгоритм вычисления произведения числового ряда и составить блок-схему:P=357...n

1 ответ:

Enly [307]1 год назад

0 0

Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
END.

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

1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, найти сумму тех чисел, которые умножаются на 3 без остатка 2.Сгенериро

Кристина1505 [7]

1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
END.

2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
END.

0 0

3 года назад

В цветовой модели RGB графического редактора установлены следующие параметры цвета: 127, 127, 127. Какой цвет будет соответствов

SofKard [114]

Получится насыщенный серый цвет. Ниже привожу пример создала в иллюстраторе.

0 0

4 года назад

Прочитать ещё 2 ответа

Допомогти олівцю виконати подані команди.

IRINA60

Не поняв?Обясни в чём смысыл?

0 0

4 года назад

4 пожалуйста )))) помогитеее, срочнооо

madgammi

С=4-_-_-_-_-_-_-_--_-_-_-_-_-_-

0 0

4 года назад

Прочитать ещё 2 ответа

Изучая английский язык, студент каждый день учит столько слов, сколько за два предыдущих дня и еще 3 слова дополнительно. Каждые

Данила Стенюшкин

//PascalABC.Net 3.1.0.1200
var
    yesterday, before_yesterday, all, this_day, days: integer;

begin
    yesterday := 6;
    before_yesterday := 6;
    all := yesterday + before_yesterday;
    days := 2;

    repeat
        days += 1;
        this_day := yesterday + before_yesterday + 3;
        all += this_day;
        if days mod 10 = 0 then all := trunc(all * 0.95);

        before_yesterday := yesterday;
        yesterday := this_day;
    until all > 1500;

    writeln('days = ', days);
end.

0 0

4 года назад

Написать алгоритм вычислениянаписать алгоритм вычисления произведения числового ряда и составить блок-схему:P=3*5*7*...*n

Написать алгоритм вычислениянаписать алгоритм вычисления произведения числового ряда и составить блок-схему:P=357...n