Определите какое число будет напечатано в результате работы следующей программы

Решу ЕГЭ и Незнайка объединились,

чтобы запустить свои курсы ЕГЭ в Тик-Ток формате. Никаких скучных вебинаров, только залипательный контент!

Готовься к ЕГЭ в Тик-Ток формате

«Незнайка» и «Решу ЕГЭ» запускают свои курсы подготовки. Короткие видео, много практики и нереальная польза!

‘; $pop_rand = mt_rand(1,3); $pop_rand_code = $; echo $pop_rand_code; //> ?—>
Вы отправили работу на проверку эксперту. Укажите номер телефона на него придет СМС

Задание № 12691

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг нач цел s, к s := 40 нц для к от 0 до 7 s := s + 3 кц вывод S кон

s = 40 FOR к = 0 ТО 7 s = s + 3 NEXT к PRINT s END

var s, k: integer; begin s := 40; for k := 0 to 7 do s := s + 3; write (s); end.

Решать другие задания по теме: Простейший циклический алгоритм, записанный на алгоритмическом языке
Показать ответ
Комментарий:

Рассмотрим на языке Паскаль

Цикл без условий (for k := 0 to 7 do), подсчитаем количество его повторений. Их будет 8.

Каждое повторение прибавляет к S по 3, 8 повторений прибавит 24

К концу программы s будет равнять 64

Ответ: 64

Решение 6 задания ОГЭ по информатике (6.9) про массивы и циклы

В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах ( Dat[1] — данные за первый день, Dat[2] — за второй и т. д.).

Определите, какое число будет напечатано в результате работы следующей программы.

Текст программы приведён на нескольких языках программирования:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 8; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k]; end; writeln(m); End.

Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 8; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k]; end; writeln(m); End.

1 2 3 4 5 6 7 8 9 10 11 12 13 14

DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 8: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 0 FOR k = 1 TO 10 IF Dat(k) > m THEN m = Dat(k) ENDIF NEXT k PRINT m

DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 8: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 0 FOR k = 1 TO 10 IF Dat(k) > m THEN m = Dat(k) ENDIF NEXT k PRINT m

1 2 3 4 5 6

Dat = [2, 5, 8, 5, 4, 2, 0, 3, 4, 5] m = 0 for k in range(10): if Dat[k] > m: m = Dat[k] print (m)

Dat = [2, 5, 8, 5, 4, 2, 0, 3, 4, 5] m = 0 for k in range(10): if Dat[k] > m: m = Dat[k] print (m)

Ответ: 8

Решение задания 6.2:

В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах ( Dat[1] — данные за первый день, Dat[2] — за второй и т. д.).

Определите, какое число будет напечатано в результате работы следующей программы.

Текст программы приведён на нескольких языках программирования:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 20; for k := 1 to 10 do if Dat[k] < m then begin m := Dat[k]; end; writeln (m) end.

Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 20; for k := 1 to 10 do if Dat[k] < m then begin m := Dat[k]; end; writeln (m) end.

1 2 3 4 5 6 7 8 9 10 11 12 13 14

DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 20 FOR k = 1 TO 10 IF Dat(k) < m THEN m = Dat(k) ENDIF NEXT k PRINT m

DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 20 FOR k = 1 TO 10 IF Dat(k) < m THEN m = Dat(k) ENDIF NEXT k PRINT m

1 2 3 4 5 6

Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15] m = 20 for k in range (10): if Dat[k]  m: m = Dat[k] print (m)

Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15] m = 20 for k in range (10): if Dat[k] < m: m = Dat[k] print (m)

Ответ: 10

Определите какое число будет напечатано в результате работы следующей программы

Чтобы купить курс,
пожалуйста, войдите
или зарегистрируйтесь

Вход/Регистрация Быстрый заказ

Быстрая регистрация

Информатика (Вариант 9)

Купить видеоуроки |

Приобретите наш курс

Для продолжения просмотра купите полный курс
наших видеоуроков

В таб­ли­це Tur хра­нят­ся дан­ные о ко­ли­че­стве ребят, хо­див­ших в поход вме­сте с ту­ри­сти­че­ским клу­бом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на пяти язы­ках программирования:

DIM Tur(11) AS INTEGER DIM k,m AS INTEGER Tur(1) = 1: Tur(2) = 11 Tur(3) = 8: Tur(4) = 12 Tur(5) = 5: Tur(6) = 6 Tur(7) = 15: Tur(8) = 16 Tur(9) = 16: Tur(10) = 21 Tur(11) = 7 m = 0 FOR k = 1 TO 11 IF Tur(k)  10 THEN m = m + Tur(k) ENDIF NEXT k PRINT m

Tur = [1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7]

for k in range(11):

Var k, m: integer; Tur: array[1..11] of integer; Begin Tur[1]:=1; Tur[2]:=11; Tur[3]:=8; Tur[4]:=12; Tur[5]:=5; Tur[6]:=6; Tur[7]:=15; Tur[8]:=16; Tur[9]:=16; Tur[10]:=21; Tur[11]:=7; m := 0; for k := 1 to 11 do if Tur[k]  10 then begin m := m + Tur[k]; end; writeln(m); End.

алг нач цел­таб Tur[1:11] цел k, m Tur[1] := 1 Tur[2] := 11 Tur[3] := 8 Tur[4] := 12 Tur[5] := 5 Tur[6] := 6 Tur[7] := 15 Tur[8] := 16 Tur[9] := 16 Tur[10] := 21 Tur[11] := 7 m := 0 нц для k от 1 до 11 если Tur[k]  10 то m := m + Tur[k] все кц вывод m кон

#include using namespacestd; int main()  int Tur[11] = 1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7>; int m = 0; for (int k = 0; k  11; k++) if (Tur[k]  10) m = m + Tur[k]; cout  ; return 0; >

Определите какое число будет напечатано в результате работы следующей программы

Чтобы купить курс,
пожалуйста, войдите
или зарегистрируйтесь

Вход/Регистрация Быстрый заказ

Быстрая регистрация

Информатика (Вариант 8)

Купить видеоуроки |

Приобретите наш курс

Для продолжения просмотра купите полный курс
наших видеоуроков

В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т.д.). Определите число, которое будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.

DIM Dat(10) AS INTEGER DIM k, m, n AS INTEGER Dat(1) = 7: Dat(2) = 9 Dat(3) = 10: Dat(4) = 5 Dat(5) = 6: Dat(6) = 7 Dat(7) = 9: Dat(8) = 8 Dat(9) = 6: Dat(10) = 9 m = 10; n = 0 FOR k = 1 TO 10 IF Dat(k)  m THEN m = Dat(k) n = k ENDIF NEXT k PRINT m

Dat = [7, 9, 10, 5, 6, 7, 9, 8, 6, 9]

for k in range(0,10):

Var k, m, n: integer; Dat: array[1..10] of integer; Begin Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7; Dat[7] := 9; Dat[8] := 8; Dat[9] := 6; Dat[10] := 9; m := 10; n := 0; for k := 1 to 10 do if Dat[k]  m then begin m := Dat[k]; n := k; end; writeln(m); End.

алг нач цел­таб Dat[1:10] цел k, m, n Dat[1] := 7 Dat[2] := 9 Dat[3] := 10 Dat[4] := 5 Dat[5] := 6 Dat[6] := 7 Dat[7] := 9 Dat[8] := 8 Dat[9] := 6 Dat[10] := 9 m := 10 n := 0 нц для k от 1 до 10 если Dat[k]  m то m := Dat[k] n := k все кц вывод m кон

#include using namespacestd; int main()  int Dat[10] = 7, 9, 10, 5, 6, 7, 9, 8, 6, 9>; int m = 10; int n = 0; for (int k = 0; k  10; k++) if (Dat[k]  m)  m = Dat[k]; n = k + 1; > cout  ; return 0; >