Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Гвоздей осталось ',(n*0.6*0.25):0:0,' шт.');
End.
<h2>Гляди . Рассуждаем таким образом.</h2>
Единственная система счисления которая имеет на борту только "1" и "0" - это <u>двоичная</u> система счисления ...
Перевод выполняется таким образом : каждая цифра двоичного числа умножается на 2 , которая возводиться в степень по индексу числа , тоесть <em>имеем число 101 - для перевода необходимо : 1*2^2 + 0*2^1 + 1*2^0 = 4+0+1(т.к любое число в нулевой степени равно 1 , даже 0^0) , = 5 - это ответ уже в 10-тичной сс.</em>
<em></em>
Ещё пример, возьмём число 1010. Переведём его в десятичную сс = 1*2^3+0*2^2+1*2^1+0*2^0 = 10 ...
<h3><em>
Граматика</em> : 2^3 - переводиться как 2 в 3 степени.</h3>
<h3>Решаем твою задачу, имея на экране теорию ..</h3>
10100 детей - закодировано в 2-чной сс , выполним перевод в 10-чную сс = 1*2^4+(пропускаем нули, их умножать бесполезно)+1*2^2 ... (остальное нули) = 16+4 = 20 детей в классе
Считаем колличество мальчиков в классе - 1100 - это 1*2^3+1*2^2 = 12 - вот столько мальчиков ....
Вычитаем из общего колличества детей колличество мальчиков , получаем = 20-12 = 8;
<h2>Ответ: 8.</h2>
Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
<u>pr:=1;</u>
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
<span>end.</span>
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
Ошибка в том, что b имеет целочисленный тип и не может быть равно 1,7. Что бы это было возможно, нужно, чтобы b имел тип real.
