Program consoles;var n, i, sum, count, reads: integer;beginreadln(n);for i := 1 to n do begin readln(sum); if(sum <= 3) then count := count + sum; end;readln(reads);if(reads = 1) then writeln(count);end.
Кодирование на десятичном коде. То есть есть двоичный код (10001011 и т.д.), где всего 2 цифры, а есть десятичный, там где 10 цифр на выбор.
Потому что они оказывают более губительные действия, чем остальные факторы, а именно понижение температуры или перепадов атмосферного давления