Надо вместо букв поставить цифры
Имя ячейки образуется из имени столбца и строки.))
357, 375, 573, 537, 753, 735 так 6
333, 357, 375, 555, 573, 537, 777, 753, 735 так 9
вроде нечего не забыла
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>
1-2048
2-2
3-0,0024
Сравнения
3 байта =24бита
1536битов<1,5килобайта(1,5кб=12288 бит)