По-моему, достаточно очевидно.
1) 8.
2) 2.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
1)1111101,011(2)=1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+0*2^1+1*2^0+0*2^ -1+1*2^-2+1*2^-3=64+32+16+8+4+0+0,25+0,125=135,375(10)
2)100001,2=1*2^5+0*2^4+0*2^3+0*2^2+0*2^1+1*2^1+1*2^-1=32+0+0+0+0+1+0.5=33,5(10)
3)1011011,111=1*2^6+0*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0+1*2^-1+1*2^-2+1*2^-3=64+0+16+8+0+2+1+0,5+0,25+0,125=91,875(10)
В коде программы допущен ряд ошибок, верный код вот:
program PRIMER;
var X, Y: INTEGER;
begin for X := 1 TO 3 DO begin Y := 6 DIV (X) + 4; WRITELN('ОТВЕТ ЗАДАЧИ=', Y); end;end.
Результат работы программы:
ОТВЕТ ЗАДАЧИ=10ОТВЕТ ЗАДАЧИ=7ОТВЕТ ЗАДАЧИ=6
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как тебе такое решение видимо надо, то держи именно такое :)