Кои-8 - 1 символ = 8 бит
160 бит / 8 бит симв = 20 симв
// PascalABC.NET 3.0, сборка 1128
begin
var Delim:=' .,+-*/;:()[]='; // исключаемые
var s:=ReadString('Введите строку:');
s.Where(x->Pos(x,Delim)=0).Println('');
Writeln('Четных цифр: ',s.Where(x->Pos(x,'02468')>0).Count)
end.
<u><em>Тестовое решение:</em></u>
Введите строку: This is a formiula: y:=2.18=3*14*sin(6.23*x+7.04);
Thisisaformiulay218314sin623x704
Четных цифр: 7
А)а*х*х+b*x+c;
б)v+(a*t*t/2);
в)1/2(а+б)*h;
*-это знак умножения .Но записывать надо как*только посередине.и еще г) и д) я еще не проходила.
<span>обработки информации.</span>
а) На нет и суда нет;
б) Конец — делу венец.