wjp39391

10.01.2023 13:20

Информатика

Есть ответ 👍

Завтра диагностика! ! 16.автомат получает на вход четырёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа – сумма первой и второй цифр и сумма третьей и четвёртой цифр заданного числа. 2. полученные два числа записываются друг за другом в порядке неубывания (без разделителей). пример. исходное число: 2177. поразрядные суммы: 3, 14. результат: 314. определите, сколько из ниже чисел может получиться в результате работы автомата. 1915 20 101 1213 1312 312 1519 112 1212 в ответе запишите только количество чисел. 10.известная авиакомпания заносила данные о количестве утерянного багажа за год в таблицу lose. всего были занесены данные за последние 10 лет работы компании (lose[1] – количество утерянного багажа за первый год работы, lose[2] – за второй год и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык ! алг нач целтаб lose[1: 10] цел t, m lose[1] : = 1; lose[2] : = 5 lose[3] : = 3; lose[4] : = 6 lose[5] : = 7; lose[6] : = 12 lose[7] : = 1; lose[8] : = 3 lose[9] : = 3; lose[10] : = 1 m : = 0 нц для t от 1 до 10 если lose[t] > 3 то m : = m + lose[t] все кц вывод m кон dim lose(10) as integer dim t,m as integer lose(1) = 1: lose(2) = 5 lose(3) = 3: lose(4) = 6 lose(5) = 7: lose(6) = 12 lose(7) = 1: lose(8) = 3 lose(9) = 3: lose(10) = 1 m = 0 for t = 1 to 10 if lose(t) > 3 then m = m + lose(t) end if next k print m паскаль! var t, m: integer; lose: array[1..10] of integer; begin lose[1] : = 1; lose[2] : = 5; lose[3] : = 3; lose[4] : = 6; lose[5] : = 7; lose[6] : = 12; lose[7] : = 1; lose[8] : = 3; lose[9] : = 3; lose[10] : = 1; m : = 0; for t : = 1 to 10 do if lose[t] > 3 then begin m : = m + lose[t]; end; writeln(m); end. 9.запишите значение переменной u, полученное в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык ! алг нач цел u,i u : = 30 нц для i от 1 до 6 u : = u – i кц вывод u кон ! dim i,u as integer u = 30 for i = 1 to 6 u = u – i next i print u var u,i: integer; begin u : = 30; for i : = 1 to 6 do u : = u – i; writeln(u); end. 7.дима хотел послушать музыку на компьютере, для этого ему нужно было включить музыкальный файл белые_розы.mp3. он начал работу с каталога с: \музыка\хиты. сначала он спустился на один уровень вниз, в каталог ретро, затем поднялся на один уровень вверх, потом спустился на один уровень в каталог лучшие и нашёл там нужный музыкальный файл. запишите полный путь к данному файлу. 1) с: \музыка\хиты\лучшие\белые_розы.mp3 2) с: \музыка\белые_розы.mp3 3) с: \белые_розы.mp3 4) с: \музыка\хиты\ретро\белые_розы.mp3