ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
Var i1, i2, i3: 1..9; //Цифры трехзначного числа i, n: integer; //n - количество трехзначных чисел, у которых ... begin n:= 0; //Обнуляем счетчик for i:= 100 to 999 do //Перебираем все трехзначные числа и считаем количество begin i1:= i div 100; i2:= (i mod 100) div 10; i3:= i mod 10; if (i1 + i2 + i3) mod 2 = 0 then n:= n + 1; end; writeln('Количество трехзначных чисел, у которых сумма цифр является четным числом равна: ', n); //Выводим количествоend.<span>Если все правильно, отметь решение как лучшее)
</span>
<span>в) *99*.?t
во всех остальных 2 вариант мимо пройдет.</span>
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
Всего цветов N=2. По формуле N=2^i узнаём, что вес одного символа, в данном случае значение цвета для одного пикселя равно 1. Количество пикселей обозначается буквой K и равно 52*14. По формуле I=K*i узнаём
I=52*14*1=728 бит