Сороченкова-Александр
?>

Втаблице dat хранятся данные измерений роста учеников 4 класса в сантиметрах. (dat[1] – рост первого ученика, dat[2] – второго и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. алгоритмический язык бейсик алг нач целтаб dat[1: 10] цел k, n, d dat[1] : = 140; dat[2] : = 130 dat[3] : = 135; dat[4] : = 150 dat[5] : = 120; dat[6] : = 150 dat[7] : = 110; dat[8] : = 140 dat[9] : = 150; dat[10] : = 135 n : = 1; d : = dat[1] нц для k от 2 до 10 если dat[k] > = d то d : = dat[k]; n : = k все кц вывод n кон dim dat(10) as integer dim k, n, d as integer dat(1) = 140: dat(2) = 130 dat(3) = 135: dat(4) = 150 dat(5) = 120: dat(6) = 150 dat(7) = 110: dat(8) = 140 dat(9) = 150: dat(10) = 135 n = 1: d = dat(1) for k = 2 to 10 if dat(k) > = d then d = dat(k) n = k end if next k print n паскаль var k, n, d: integer; dat: array[1..10] of integer; begin dat[1] : = 140; dat[2] : = 130; dat[3] : = 135; dat[4] : = 150; dat[5] : = 120; dat[6] : = 150; dat[7] : = 110; dat[8] : = 140; dat[9] : = 150; dat[10] : = 135; n : = 1; d : = dat[1]; for k : = 2 to 10 do if dat[k] > = d then begin d : = dat[k]; n : = k end; write(n); end. ответ:

Информатика

Ответы

ShALIGINA
Т.к. нам сказано, что Dat[k] >= d, то нам нужно найти наибольшее значение Dat[k] но т.к. там несколько одинаковых наиб. и n := k, то записать нужно номер последнего наиб. Dat.
ответ: 9
АлександровнаВладимирович1424

1. Программирования на данный момент является одним из популярных сфер в IT, помимо этого сфера высокооплачиваемая. Стать программистом весьма сложно но это только на первых порах. Плюсом ты сохраняешь пластичность мозга постоянной нагрузкой.

2. IDE или Integrated Development Environment среда для разработки софта. "Больше ничего не придумал"

3.

Текстовый редактор, Компилятор или интерпретатор, Средства автоматизации сборки, Отладчик.

4. Python это высокоуровневый язык программирования общего назначения его синтаксис ядра весьма минималистичен, но его стандартная библиотека весьма обширная. Этот яп заточен на повышение производительности разработчика.

Викторович Попков
Если дальше завершить программу, то получим это:
program HelloWorld;
    function ez(a: longint): boolean;        var c: integer;        begin            ez := a >= 2;            for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false        end;        var i, k: integer;        num: array [1 .. 100] of integer;
begin    for i := 0 to 99 do num[i+1] := i + 1;        k := 0;    i := 1;        while k < 7 do begin        if ez(num[i]) = true            then k := k + 1;        i := i + 2;    end;        write(num[i-2]);    end.
ответ 19

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Втаблице dat хранятся данные измерений роста учеников 4 класса в сантиметрах. (dat[1] – рост первого ученика, dat[2] – второго и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. алгоритмический язык бейсик алг нач целтаб dat[1: 10] цел k, n, d dat[1] : = 140; dat[2] : = 130 dat[3] : = 135; dat[4] : = 150 dat[5] : = 120; dat[6] : = 150 dat[7] : = 110; dat[8] : = 140 dat[9] : = 150; dat[10] : = 135 n : = 1; d : = dat[1] нц для k от 2 до 10 если dat[k] > = d то d : = dat[k]; n : = k все кц вывод n кон dim dat(10) as integer dim k, n, d as integer dat(1) = 140: dat(2) = 130 dat(3) = 135: dat(4) = 150 dat(5) = 120: dat(6) = 150 dat(7) = 110: dat(8) = 140 dat(9) = 150: dat(10) = 135 n = 1: d = dat(1) for k = 2 to 10 if dat(k) > = d then d = dat(k) n = k end if next k print n паскаль var k, n, d: integer; dat: array[1..10] of integer; begin dat[1] : = 140; dat[2] : = 130; dat[3] : = 135; dat[4] : = 150; dat[5] : = 120; dat[6] : = 150; dat[7] : = 110; dat[8] : = 140; dat[9] : = 150; dat[10] : = 135; n : = 1; d : = dat[1]; for k : = 2 to 10 do if dat[k] > = d then begin d : = dat[k]; n : = k end; write(n); end. ответ:
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ВитальевичЕвгеньевич346
+ и - растровой и векторной графики
борисовна Елена78
Panfilov_Anna
Кириллов57
mariashapar
mariokhab
Alena824
asparinapti39
Горина
dubaiexport
st-op767840
Оксана Николаевич
ustinovalubov6666
Garifovich Greshilova791
Роман