Ребят завтра диагностика! Помогите пожалуйста !!! 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
полученному числу строится новое десятичное число по следующим
правилам.
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
More Questions From This User See All