Program n_1;
var n, i:integer;P, b, s: real;
begin
read(n, P);
s:=0;
for i:=1 to n do begin
read(b);
if b>P then s:=s+b;
end;
writeln(s:0:10);
end.
Б)использование записанной информации
в)изучение записанной информации
г)передача информации
д)перевод информации
Переводим 16-ю СС в 8-ю это будет 64 и складываем 27+64=113 в 8-ой СС
Задание 11
Чтобы упростить подсчет разделим на две подзадачи
1) кол-во путей А->Г
2) кол-во путей Г->М
1) =3
АБГ
АГ
АДГ
2) =11
ГВИМ
ГВЕИМ
ГВЕМ
ГВЕКМ
ГЕИМ
ГЕМ
ГЕКМ
ГЖЕИМ
ГЖЕМ
ГЖЕКМ
<span>ГЖКМ
ответ: 3*11=33
Задание 13
ПРАВИЛА:
1) В конце A,B,C
2) В начале B,D,C и нет в конце
3) В середине A,C,E,B и нет в начале
CBB подходит под все правила
EAC не подходит из-за правила 2
CAA </span>подходит под все правила<span>
BCD </span>не подходит из-за правила 1<span>
CAB </span>подходит под все правила<span>
BCB </span>не подходит из-за правила 2<span>
BCC </span>подходит под все правила<span>
ABC </span>не подходит из-за правила 2<span>
CBA </span>подходит под все правила
Ответ: 5 цепочек созданы по правилам
Var
x, s, count: longint;
begin
x := 1;
s := 0;
count := 0;
while x <> 0 do
begin
read(x);
if x < 0 then
inc(count);
if x mod 4 = 0 then
s := s + x;
end;
writeln(count, ' ', s);
end.