Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>
Т.к. наибольшая цифра в числе "силен" =5, а С=1, то остальные четыре цифры в данном числе будут 2, 3, 4, 5. Т. к. Н<6, то И=2. А значит, Н=4. Т.к. Л>Е, то Л=5, Е=3. А тогда уже легко находим остальные цифры: Ш=8, Р=9. В итоге получается: 9382+3152=12534.
Ответ: 9382+3152=12534.
Var n,i,s:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln('Сумма: ',s);
<span>end.</span>
81 клетка получится в оэтом кводрате
Персонаж "мышка" присутствует в сказках "Курочка Рба " и "Теремок", поэтому она находится на пересечении множеств героев этих сказок.
Ответ: сектор В