- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
var
s: string := '1 2 4 8 16 32 64 128 256 512';
sum: integer;
num,p: integer;
numstr: string;
begin
sum := 0;
while s.Length>0 do
begin
while s[1]=' ' do // Удаление лидирующих пробелов
Delete(s,1,1);
p := Pos(' ',s); // Поиск следующего пробела
if p=0 then // Если он не найден, то до конца строки находится последнее число
p := s.Length;
numstr := Copy(s,1,p);
Delete(s,1,p);
num := StrToInt(numstr);
sum += num;
end;
writeln('Сумма чисел строки равна ',sum);
end.
Follow us!
У меня пригорает от того, что в stl не додумались включить строки, не владеющие своим буфером, с интерфейсом, аналогичным интерфейсу обычных строк. Реально же нужный функционал...
UPD: а, у тебя копии строк в массиве...
Причем еще и довольно безопасный функционал (не опаснее обычного итератора).
Аналоги бы тоже не помешали, но без них хоть можно прожить.
перефигачивать весь проект на новый класс/дублировать все методы для еще одного класса строк/переводить проект на темплейты для duck typing - очень и очень не кузяво.
типа string_view ?
Конардо детектед!
Я бы на его месте заранее учетки регал, чтобы троллить нонстоп ;)
Я бы понимал, если бы он выносил мозг админам/мордераторам, но где они здесь? Покажите мне их.
Да как-то не сходит. Когда мы в последний раз видели посты по +300..+400?
Или ему был важен процесс (написать авторегер, дающий по сотне учёток в день - занятие интересное), а потом всё это наскучило, или ботов прижали парочкой запросов.
http://gvforum.ru/viewtopic.php?pid=1955#p1955
Он либо друг конардо, либо сам конардо.
2. Подключи сервис распознавания, они там по 1-2 бакса за 1000.
В чем смысл регать 600+ учеток, если удалять их - один-два запроса к базе?
Честно, я даже как-то и не заметил. Это при том что я даже спам-лист давно не обновлял.
>все радуются
И шо он кому-то сильно мешал?
Это не ошибка? Т.е. в паскале строки - это объекты?