Ответ:
Для начала возьмём максимальное количество пятирублёвок. А потом будем по одной их убирать и добавлять двойками сколько влезет. Потом единичками до 10.
Потом убираем по одной двушке, заменяя единичками.
5 5
5 22 1
5 2 111
5 11111
22222
2222 11
222 1111
22 111111
2 11111111
1111111111
Объяснение:
Переведем все числа в степени 8.
Ответ: 3 единицы.
<span>1 пиксель - одна точка на экране. В битах кодируется в зависимости от кол-ва цветов - если изображение черно белое-1бит, 4 цвета-2бита, 265 цветов-8 бит</span>
Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD(a,b:integer; var r:integer);
begin
while b>0 do (a,b):=(b,a mod b);
r:=a
end;
begin
var a,b,c,d:integer;
Write('Введите четыре натуральных числа через пробел: ');
Read(a,b,c,d);
var p,q,r:integer;
NOD(a,b,p); q:=(a*b) div p; // НОК(a,b)
NOD(c,d,p); r:=(c*d) div p; // НОК(c,d)
NOD(q,r,p); r:=(q*r) div p; // НОК(a,b,c,d)
Writeln('НОК=',r)
end.
<u>Пример</u>
Введите четыре натуральных числа через пробел: 15 23 36 150
НОК=20700