Ответ:
Суть программы следующая: у нас есть массив Dat, состоящий из 10 элементов. Значения каждого элемента нам уже известно, ведь их ввели прямо в коде программы. И так, цикл for k:=1 to 10 do проверяет, больше ли текущий элемент массива, чем 12, если да, то переменная m увеличивается на 1
От Dat[1] до Dat[10] больше 12 всего 7 элементов. Значит на экран выведется 7.
Ответ: 7.
Объяснение:
===== PascalABC.NET =====
begin
var (s, n) := ReadInteger2('Введите S и N:');
var r := 0;
for var m10 := 0 to S div 10 do
begin
for var m5 := 0 to (S - 10 * m10) div 5 do
begin
if m10 + m5 > N then
break;
for var m2 := 0 to (S - 10 * m10 - 5 * m5) div 2 do
begin
if m10 + m5 + m2 > N then
break;
for var m1 := 0 to S - 10 * m10 - 5 * m5 - 2 * m2 do
begin
if m10 + m5 + m2 + m1 > N then
break;
if (m10 * 10 + m5 * 5 + m2 *2 + m1 = s) and
(m10 + m5 + m2+ m1 = N) then
begin
$'{m10} x 10 + {m5} x 5 + {m2} x 2 + {m1} x 1'.Println;
Inc(r)
end
end
end
end
end;
if r > 0 then
Println('Найдено вариантов размена:', r)
else
Println('Вариантов такого размена нет')
end.
<span>a = int(input('Введите кг яблок:'))
b = int(input('Введите цену этих кг:'))
k = int(input('Введите имеющиеся кг:'))
print(k/a*b)</span>
Е-0, П-1, Н-2, Ч-3, Ь-4. Сначала находим двоичные коды чисел(переводим эти числа из десятичной системы счисления в двоичную. Там, где после перевода остается только одна цифра, впереди приписываем ноль). Таким образом, получим:
Е-00, П-01, Н-10, Ч-11, Ь-100.
Закодируем слово ПЕЧЕНЬЕ в двоичном коде: 01 00 11 00 10 100 00(2). Переведем это число в восьмеричную систему счисления любым известным нам способом, получим 23120(8).
Это программа для суммы двух чисел:
program summa;
var a,b,c: real;
begin
read (a,b);
c:=a+b;
write (c);
end.
это программа для разности двух чисел:
program raznost;
var a,b,c: real;
begin
read (a,b);
c:=a-b;
write (c);
end.