В основу работы компьютеров положен программный принцип управления, состоящий в том, что компьютер выполняет действия по заранее заданной программе. Этот принцип обеспечивает универсальность использования компьютера: в определенный момент времени решается задача соответственно выбранной программе. После ее завершения в память <span>загружается другая программа и т.д.</span>
1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
var a,x,b:real;
Begin
read(a,x);
if x>4 then b:=x*ln(x*x);
if x<3 then b:=a*cos(x);
writeln(b);
End.
Var N, S : Word;
begin
Write('Введите 3-хзначное число: '); ReadLn(N);
S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end;
Write('Сумма цифр = ', S); if (S > 9) and (S < 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число');
<span>end.</span>
I = 1 байт.
тогда I = k*i или I = k/
k = 76
I(бит) = 76 * 8 = 608 бит
ответ: 2