М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sofiyasan7
sofiyasan7
21.07.2020 12:36 •  Информатика

напишите подробно что будет выведено на экран монитора в результате выполнения фрагмента программы s : = 0 for i:=1 to 5 do begin for:=1 to 2 do begin write ('1'); s:=s+2; end end write (s)

👇
Ответ:
dghtf
dghtf
21.07.2020

Решение представлено во вложениях.

Язык: Pascal

Пояснение:

1 шаг основного цикла:

i = 1; j = 1; На экран выводится '1'; s = 0 + 2 = 2;i = 1; j = 2; На экран выводится '1'; s = 2 + 2 = 4;

2 шаг основного цикла:

i = 2; j = 1; На экран выводится '1'; s = 4 + 2 = 6;i = 2; j = 2; На экран выводится '1'; s = 6 + 2 =8;

3 шаг основного цикла:

i = 3; j = 1; На экран выводится '1'; s = 8 + 2 = 10;i = 3; j = 2; На экран выводится '1'; s = 10 + 2 = 12;

4 шаг основного цикла:

i = 4; j = 1; На экран выводится '1'; s = 12 + 2 = 14;i = 4; j = 2; На экран выводится '1'; s = 14 + 2 = 16;

5 шаг основного цикла:

i = 5; j = 1; На экран выводится '1'; s = 16 + 2 = 18;i = 5; j = 2; На экран выводится '1'; s = 18 + 2 =20;

В результате работы программы на экран будет выведено:

111111111120
напишите подробно что будет выведено на экран монитора в результате выполнения фрагмента программы s
4,7(86 оценок)
Открыть все ответы
Ответ:
V1ctoriaF0X
V1ctoriaF0X
21.07.2020
1.A[N]
 i = 0; sum = 0;

 Пока i < N;
sum = sum + A[i]
 увеличить i на 1.

2.A[N]
 i = 0; sum = 0;

Пока i < N;
Если A[i] делиться на 3 без остатка, то : (sum = sum + A[i]) 
 увеличить i на 1.

3.A[N]
 i = 1; sum = 0;

 Пока i < N;
sum = sum + A[i]
 увеличить i на 2.

Сред. знач. = sum/i

4. A[N]
 i = 0; sum = 0; chet =0; nechet = 0; otr =0;

 Пока i < N;
Если A[i] <0, то : (otr = otr * A[i]) 
Если i делиться на 2, то (chet = chet + A[i]) в ином случае nechet = nechet +1 
 увеличить i на 1.

Сума четных - chet
Произведение отрицательных - otr
Количество нечетніх - nechet 
4,8(78 оценок)
Ответ:
Helluing
Helluing
21.07.2020
//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    handsfree = true;
    nmax = 100;
    random_min = -28;
    random_max = 27;

var
    a: array[1..nmax] of integer;
    i, n, j, count: integer;
    mini, maxi: integer;
    min, max: real;
    temp: real;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    if handsfree then
        n := random(nmax - 5) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    for i := 1 to n do
    begin
        sum := sum + a[i];
        if a[i] mod 3 = 0 then {если нужен фильтр}
            product := product * a[i];
    end;
    writeln('1) sum = ', sum);
    writeln('2) product = ', product);
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 1 then {если нужен фильтр}
        begin
            count := count + 1;
            sum := sum + a[i];
        end;
    end;
    writeln('3) average (selected) = ', sum / count);
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
        if a[i] < 0 then {если нужен фильтр}
            product := product * a[i];
        if a[i] mod 2 = 1 then {если нужен фильтр}
            count := count + 1;
    end;
    writeln('4) count = ', count);
    writeln('4) sum = ', sum);
    writeln('4) product = ', product);
end.
4,8(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ