С РЕШЕНИЕМ Среди моих друзей четыре мастера спорта: баскетболист, самбист,
шахматист, волейболист. Их фамилии: Коренев, Долгов, Матвеев, Солопенко.
Известно, что Коренев и Долгов – соседи и всегда ездят на работу в
одном автобусе.
Долгов старше Матвеева.
Коренев всегда обыгрывает Солопенко в пинг-понг.
Баскетболист на работу ходит только пешком.
Волейболист живет рядом с самбистом.
Шахматист и волейболист познакомились, когда шахматист,
задумавшись, чуть не попал под машину и волейболист вытащил его
буквальноиз-под колес.
Известно еще, что волейболист старше самбиста и шахматиста.
Кто из моих друзей каким видом спорта занимается?
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.
Громоздко, но, думаю, покатит