На самом деле в ASCII латинская буква А находиться
65порядке
161-96=65 65=A
178-96=82 82=R
<span>178-96=82</span>
82=R
<span>161-96=65</span>
65=A
<span>185-96=89</span>
89=Y
ARRAY
<span> </span>
var s: string;
a: integer;
begin
readln(a);
if a mod 2=0 then s:='четное' else s:='нечетное';
if a in [1..9] then s:=s+' однозначное число';
if a in [10..99] then s:=s+' двузначное число';
if a in [100..999] then s:=s+' трехзначное число';
write(s);
end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('Введите число');
var k:=s.Where(x->x in ['0','2','4','6','8']).Count;
Writeln(k,' четных цифр')
end.
<u><em>Тестовое решение:</em></u>
Введите число 235354634123215609898432
12 четных цифр
регулярное архивирование файлов позволяет минимизировать ущерб от вирусной атаки. Основным средством защиты информации является резервное копирование ценных данных,которые хранятся на жестких дисках