Программа требует ручного ввода 10 числ
var a: array [1..10] of integer;
i , k: integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
for i:=1 to 10 do
if a[i] div 10 =0
then k:=k+1;
writeln(k);
end.
0.5 Кбайт = 0.5*1024*8 бит = 4096 бит.
4096 бит : 128 бит = 32
Ответ: в 32 раза
Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
а) для логического умножения: А & В = Ᾱ v В(инверсия):
А В А & В (А & В)(инверсия) Ᾱ В(инверсия) Ᾱ v В(инверсия)
0 0 0 1 1 1 1
0 1 0 1 1 0 1
1 0 0 1 0 1 1
1 1 1 0 0 0 0
б) для логического сложения: A v В = Ᾱ & В(инверсия):
А В A v В (A v В)(инверсия) Ᾱ В(инверсия) Ᾱ & В(инверсия)
0 0 0 1 1 1 1
0 1 1 0 1 0 0
1 0 1 0 0 1 0
1 1 1 0 0 0 0
А) При удалении строки 2 формула изменится на =SUM(A3:D3) и
переместится в ячейку Е3.
б) При удалении строки 7 формула не изменится и нет ее
перемещения
<span>в) При вставке строки перед строкой 4 формула не изменится но
переместится в ячейку F4</span>
<span>г) При удалении столбца 3 формула изменится на =SUM(A4:C4) и
переместится в ячейку D4</span>
<span>д) При вставке пустого столбца перед столбцом 6 ничего не
изменится с положением и значением формулы.</span>
