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.