<span>свехру в программе есть книпка с изображением бинокля. Если ее нажать то, на экране откроется окно, в этом окне от вас требуется ввести слово которое вы хотите найти в документе и нажать "поиск". Когда программа найдет слово в документе, она выделит его цветом.</span>
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Program test;
uses crt;
var
y,x:integer;
begin
textcolor(11);
writeln('Введите x: ');
readln(x);
if x>2 then begin
y:=x*x;
writeln('Ответ: ', y)
end
else
begin
y:=4;
writeln('Ответ: ', y);
end;
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>