Var
s,k:longint;
begin
s:=50;
for k := 1 to 9 do
s:=s-3;
writeln(s);
end.
Ответ s =23
Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
A B НЕ A НЕ A ИЛИ B
0 0 1 1
0 1 1 1
1 0 0 0
1 1 0 1
Скорее всего это процессор
Все просто. Человек -очень многообразный, многофункциональный компонент любой системы. Кто-то является "оператором подготовки данных", и с помощью ПК набирает тексты. А другой человек -редактирует тексты, для него первый вместе с ПК является подсистемой, а он относительно первого есть надсистема