Определите количество видеороликов размером 512 Мбайт, которые можно записать на новую флешку емкостью 16 Гбайт? В ответе напишите только число.
150
293
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin var a: =matrixrandom(7,7,0,9); var k: =0; for var i: =0 to 6 do begin for var j: =0 to 6 do begin write(a[i,j]: 3); if a[i,j] in [1..5] then inc(k) end; writeln end; writeln('кол-во элементов на [1,5]: ',k) end. тестовое решение: 2 1 7 3 3 2 7 9 2 9 2 0 5 5 4 2 6 9 4 6 0 1 0 3 5 4 5 9 6 3 6 0 2 0 8 0 8 4 3 2 1 8 6 0 4 4 5 4 0 кол-во элементов на [1,5]: 27 вариант "совсем для школы" const n=7; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; k: =0; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 3); if a[i,j] in [1..5] then inc(k) end; writeln end; writeln('кол-во элементов на [1,5]: ',k) end.
Популярно: Информатика
-
Марина1212х04.03.2021 02:10
-
sofisnow082603.10.2022 02:26
-
lehaguy15.12.2022 15:36
-
Виктория1000000004.07.2020 07:57
-
Mariiar09.03.2020 17:21
-
анапияабдыганиева16.04.2023 14:45
-
Лущік16.06.2021 00:13
-
АннаЛютинго19.12.2021 17:50
-
AbsoJl31.05.2021 09:35
-
aveter25606.12.2021 12:11