Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
Смотрите решение с исправлением на прикреплённом файле
85 Фоксов - лгут
50 Фордов - лгут
100 - 85 = 15 - Фоксов говорят правду
100 - 50 = 50 - Фордов говорят правду
85 + 50 = 135 - количество фоксов и фордов, которые лгут
15 + 50 = 65 - количество фоксов и фордов, которые говорят всегда правду
300 - (135+65) = 300 - 200 = 100
В условии не сказано, что Фоксфорды вообще могут лгать. Так, что по идеи ответ 100.
Прикладное по для программирования
Общее - это то, что можно общаться с определённым кругом лиц, различие, то что в разное время. Например: на форуме сообщениями обмениваются не сразу, а в чате они приходят за считаные секунды, в телеконференции идёт разговор в реальном времени.