Поделитесь своими знаниями, ответьте на вопрос:
A. Разбиение на команды Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Имеется некоторое число детей, желающих заниматься робототехникой. Для работы в команде достаточно на один комплект робототехники двух учащихся. Если ребят нечетное число, то одна команда будет состоять из трех ребят. Необходимо уточнить, сколько команд можно сформировать при этих условиях. Формат ввода Вводится число детей: n. Формат вывода Число команд. Пример Ввод Вывод 20 10 Cрочно
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.