Від якої електричної мережі працює персональний комп'ютер 1. 127в 2. 380в 3. 220в

3. 220в

Объяснение:

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.

#include <iostream>
#include <array>
#include <random>
using namespace std;

mt19937 gen { random_device()() };
uniform_int_distribution<> uid(-20, 20);

constexpr size_t N = 5;

int main()
{
    int sum = 0;
    array<array<int, N>, N> a;
   
    for (auto &i : a) {
        for (auto &j : i) {
            if ((j = uid(gen)) < 0) {
                sum += j;
            }
            cout << j << "\t";
        }
        cout << endl;
    }
    cout << endl;
    a[1][2] += sum;
    for (const auto &i : a) {
        for (const auto &j : i) {
            cout << j << "\t";
        }
        cout << endl;
    }
    cout << "Sum: " << sum << endl;
}