16. 4 числа: 1915 – не могло: в порядке неубывания число делится на 1 и 915, 915 – не сумма двух цифр 20 – не могло: не делится на два числа в порядке неубывания, только 2 и 0 101 – не могло: не делится на два числа в порядке неубывания, только 10 и 1 1213 – могло, например, для числа 6667 1312 – не могло: в порядке неубывания число делится на 1 и 312, 312 – не сумма двух цифр 312 – могло, например, для числа 1266 1519 – не могло: в порядке неубывания число делится на 1 и 519 или 15 и 19, 519 и 19 – не сумма двух цифр 112 – могло, например, для числа 1066 1212 – могло, например, для числа 6666
10. Дан массив [1, 5, 3, 6, 7, 12, 1, 3, 3, 1]. Изначально m = 0, при обходе массива если элемент Lose[t] больше 3, то к m прибавляется Lose[t]. Значит, после выполнения программы на экране будет напечатана сумма элементов массива, больших трёх. Эта сумма равна 5 + 6 + 7 + 12 = 30.
9. Изначально u = 30. Затем для каждого i от 1 до 6 из u вычитается значение i, после цикла u равно 30 - 1 - 2 - 3 - 4 - 5 - 6 = 9. Это значение будет выведено на экран.
7. Путь Димы: С:\Музыка\Хиты – С:\Музыка\Хиты\Ретро – С:\Музыка\Хиты – С:\Музыка\Хиты\Лучшие В последней папке он запустил Белые_розы.mp3. Полное имя файла состоит из пути к папке и имени файла: С:\Музыка\Хиты\Лучшие\Белые_розы.mp3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program pr;
var
n, i, k, m: integer;
begin
k := 0;
writeln('Введите количество чисел последовательности');
readln(n);
if n <= 1000 then
begin
for i := 1 to n do
begin
writeln('Введите ', i, ' число:');
readln(m);
if abs(m) <= 30000 then
begin
if (m mod 3 = 0) and (m mod 10 = 2) then
inc(k);
end
else
begin
writeln('Число по модулю не должно превышать 30000');
exit;
end;
end;
writeln('Количество элементов последовательности кратных 3 и оканчивающихся на 2: ', k);
end
else
writeln('Количество не должно превышать 1000');
end.
Объяснение: