4 года назад

Найти: Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры;B>a)

1 ответ:

0 0

Var i:integer;
var t:text;
begin
for i:= 1 to 10000000 do
begin
execute( 'notepad.exe' );
assign(t,'poy'+inttostr(i)+'.txt');
rewrite(t);
close(t);
end;
end.

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

. В приведённом ниже списке найдите соответствие между управляющим и управляемым объектами и заполните таблицу: оркестр, лошадь,

p-a

управляющий --> управляемый

Наездник --> Лошадь,

Тренер --> Спортсмен,

Режиссёр --> Актёр,

Дирижёр --> Оркестр,

Водитель --> Автобус.

0 0

4 года назад

Заполнить массив V(7,7) целыми случайными числами из интервала [-15,15]. Распечатать его. - Найти произведение элементов третьей

Skeedzis [17]

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('*** Исходный массив ***');
var v:=MatrRandom(7,7,-15,15);
v.Println(4); Writeln(4*v.ColCount*'-');
var pr3:=v.Row(2).Aggregate(1,(x,y)->x*y);
Writeln('Произведение элементов 3-й строки равно ',pr3);
Writeln('Количество элементов, больших этого произведения, равно ',
 v.ElementsByRow.Where(t->t>pr3).Count);
Writeln('Максимум в 3-м столбце равен ',v.Col(2).Max)
end.

Пример
*** Исходный массив ***
-4 -12 -15 -2 13 3 -15
-7 -1 -15 2 -2 4 -6
14 5 5 15 -4 3 0
13 15 9 14 11 -9 11
 1 14 14 1 -4 -1 -7
15 -10 -13 -3 -8 -12 11
 0 -13 -8 4 6 1 -11
----------------------------
Произведение элементов 3-й строки равно 0
Количество элементов, больших этого произведения, равно 24
Максимум в 3-м столбце равен 14

0 0

4 года назад

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

Как можно передавать различные документы между компьютерами без использования сети Интернет и различных переносных носителей(флэ

Виктор Пузыренко

Флэш-накопитель, CD/DVD диск, внешний жесткий диск, дискета.

0 0

4 года назад

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

Решите задачу в паскале используя цикл на своё усмотрение. Одноклеточная амёба каждые 3 часа делится на 2 клетки.Определить скол

Vadim Kuryerov [18]

Var
    amoebas, t: integer;

begin
    amoebas := 1;
    t := 0;

    repeat
        t := t + 3;
        amoebas := amoebas * 2;
        Writeln(amoebas, ' амеб через ', t, ' часа');
    until t >= 24;
end.

0 0

4 года назад

Отсортировать одномерный массив по возрастанию количества четных цифр числа.

юлия 87

я не знаю как оно работает, но оно работает

(возможно, можно оптимизировать, что возможно где-то я это не учёл)

в предпоследней строке с конца ( write (ZZ[i]:5) ) цифру 5 можно изменить на какой нужно (надеюсь вы понимаете моё кривое мышление), либо можно проще write (zz[i]) , но тогда они выведутся не в строку, а столбцом

0 0

4 года назад