Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
<span>B1.
Числа:
35, 71</span>
В2.
<span>B3.
Заменим
числа в 5 первых ячейках на среднее и получим в сумме
5+24=120</span>
Х – число в 6 ячейке
(120+Х)/6 = 4
Х = -96
<span>В4.
в ячейке F4
будет формула
=$C6-I$3</span>
<span>С1.
8, 17, 26</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
<u>***** Пример работы с модулем *****</u>
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
<u>Результат</u>
5/24+7/8=13/12
1) дикие животные
2) одежда
3) имена существительные среднего рода
4) деревья
5) плодовые деревья
6) молочные продукты
7) инструменты столяра
8) ягодные кустраники
9) слова с безударными гласными (словарные слова)
10) имена существительные женского рода
11) имена существительные 3 склонения женского рода
12) имена существительные мужского рода с шипящей на конце слова
13) числа
14) единицы измерения времени
15) один месяц каждого времени года
16) месяцы года, в которых 31 день
17) каждое число имеет свои признаки делимости
18) простые числа (деляться только на самого себя и на 1)
Вначале информационный объем был 24 бита (2^16=16777216), потом стал 8 бит (2^8=256). 24/8= 3. Информационный объем изображения уменьшился в три раза. Вот так, вроде.