А = 5 => У остальных не может быть пятёрки =>
Б = пропуск (Б = пропуск или 5) => У остальных не может быть пропусков =>
Д = 3 (Д = пропуск или 3) => У остальных не может быть троек =>
В = 4 (В = 4 или 3) => У остальных не может быть четвёрок =>
Г = 1 или 2 (Г = все оценки + пропуск)
Если единицу не ставят, то Г = 2
Развитие компьютерных сетей происходило, в первую очередь, за счет развития двух более крупных направлений технологии – вычислительной техники и коммуникаций. Первые попытки создать возможность работы с вычислительной техникой нескольких пользователей заключались в загрузке в мэйнфрэйм (основной компьютер) нескольких готовы пакето данных, которые были заранее подготовлены и нуждались в обработке.
Первоначальное развитие этой технологии происходило на протяжении 50-х годов XX века, когда компьютеры представляли собой громоздкие и неудобные устройства, обрабатывающие информацию крайне длительное время. На тот момент удобство пользователя находилось на одном из последних мест в развитии, а основное внимание уделялось повышению мощности.
Следующим прообразом компьютерных сетей стало создание отдельных терминалов, имеющих полноценные собственные устройства ввода-вывода и работающие напрямую с одним общим компьютером. Для самого пользователя работа за таким устройством была куда более удобной – он мог не замечать, что мощности компьютера параллельно используются еще несколькими людьми. Именно тогда стали появляться первые сети, чей принцип работы заключался лишь в банальном физическом удалении терминалов на определенные расстояния.
Как только начали появляться более компактные компьютеры – это произошло в 70-х годах, позволить себе их установку могли все больше предприятий, поэтому необходимость использования какого-либо средства связи возрастала и тогда возникли первые приближенные к современным способы объединения компьютеров в сеть и потребность в монтаже компьютерных сетей.
program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.
У меня так получилось
a:=9
b:=3
c:=1
1. a=b - нет
2. c:=1+(a-b)
a:=a-1
b:=b+1
c:=7
a:=8
b:=4
3.a=b - нет
4.c:=4
a:=7
b:=5
5.a=b - нет
6.c:=3
a:=6
b:=6
7.a=b - да
И выведет конечный результат
a:=6
b:=6
c:=3
100
101
110
111
---------CУММА :
10110 <-- ответ