Ну..можно потерять носитель информации...
\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
Ответ :84
716 постоянно делим на 16 и ответ записываемых в обратном порядке ...все..