85 Фоксов - лгут
50 Фордов - лгут
100 - 85 = 15 - Фоксов говорят правду
100 - 50 = 50 - Фордов говорят правду
85 + 50 = 135 - количество фоксов и фордов, которые лгут
15 + 50 = 65 - количество фоксов и фордов, которые говорят всегда правду
300 - (135+65) = 300 - 200 = 100
В условии не сказано, что Фоксфорды вообще могут лгать. Так, что по идеи ответ 100.
200дели столбиком
200/5=40/5=8/5=1
ответ 1300
Program pas;
var
a:array[1..30] of integer;
i, k: integer;
s: real;
begin
s:=0;
k:=0;
for i:=1 to 30 do
readln(a[i]);
for i:=1 to 30 do
begin
if (not(a[i]mod 2=0)) then
s:=s+a[i];
inc(k);
end;
s:=s/k;
write(s:4:0);
end.
BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END