Program n1;
var x,y: real;
begin
read(x);
if x>=3 then y:=x*x+5 else y:=x-8;
writeln ("y=",y)
end.
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
// сортировка выбором
procedure SortBySelect(var a:array of integer);
begin
var j:=a.High;
while j>0 do begin
var mx:=a[0];
var imx:=0;
for var i:=1 to j do
if a[i]>mx then begin mx:=a[i]; imx:=i end;
a[imx]:=a[j];
a[j]:=mx;
j-=1
end
end;
begin
var a:=ArrRandom(10,-20,20); a.Println;
SortBySelect(a); a.Println
end.
<u>Пример</u>
-6 14 2 -6 -6 -9 20 -18 13 -18
-18 -18 -9 -6 -6 -6 2 13 14 20
(c) понятность это-<span>разборчивость, ясность, вразумительность, отчетливость, внятность, доходчивость, доступность, общепонятность.
(а)моссовость это отношение к алгоритмам это правильно,, (б)результативность тоже самое на результат чтобы хорошо выполнить
(д)точность это</span><span>коммуникативное качество речи, возникающее как соответствие смысловой стороны речи предметно-вещной действительности и/ли системе выражаемых понятий...
я думаю под (с) а там сам решай опр. дал
</span>
<span><span>в 16ти символьном алфавите каждый символ весит 4 бита так как 2⁴=16
(1/16)*1024*1024*8=1024*512=524288бит( 1/16 часть мегабайта перевели в биты)
524288/4=131072 символа
ответ:131072</span></span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)