Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if s[i] in rus then inc(r);
if s[i] in eng then inc(e);
if s[i] in cif then inc(c)
end;
writeln('Русских букв: ', r);
writeln('Английских букв: ', e);
writeln('Цифр: ', c)
end.
Ответ: 19 клеток,
клетка финиша а1 не учитывается
19. 1)8/2 =4
4/2=2
2/2=1 ⇒12
12/2=6
Ответ : 6
2) 12
12/2=6
6/2=3
32
32/2=16
Алгоритм из 1 в 16: 12212
20.
После выполнения алгоритма 3241 Робот окажется в клетке В.
Ответ : В
Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?
var a,x:integer;
begin
read(a);
if a<0 then x:=0 else x:=a;
writeln(x);
end.
Не забудь откомпилировать перед проверкой.