<u><em>Укажите истинное высказывание (отметьте точкой).</em></u>
1) Алгоритм всегда представляет собой некоторую последовательность вычислений.
<em>2) Алгоритм может представлять собой некоторую последовательность вычислений, а может - последовательность действий не математического характера</em>.(верно)
3) Алгоритм всегда представляет собой последовательность действий не математического характера.
Если Windows XP, то "Программы" или "Все программы"; если Vista\7, то "Все программы", если Linux, то сильно зависит от дистрибутива. Например, это "Приложения" в окружении Gnome 2, или "Меню" в KDE 3 (обычно заменяется на значок).
В Задании 3 ответ : 132 бита, т.к в Алфавите 33 буквы, то 33*4=132 Остальные задания возможно, завтра решу, сегодня устал!
Var a,b,c:integer;
result:double;
begin
read(a,b,c);
result:=(a+b-c)/(a-b);
writeln(result);
end.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6