![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 13.12.2012
Сообщений: 1
|
![]()
программа есть. нужно сделать её максимально с подпрограммами. а я с ними не дружу
вот программа var s, a, b: string; l, k: real; i, j: integer; begin readln(s); l := length(s); k := 0; i := 1; while (k <> 1) and (i < l) do begin while (i <= l) and (s[i] <> ' ') and (s[i]<>'.') do begin a := a + s[i]; i := i + 1; end; j := i+1; while (s[i]<>'.')and (k<>1) do begin i:=i+1; if i <> l then while (i <= l) and (s[i] <> ' ') and (s[i]<>'.') do begin b := b + s[i]; i := i + 1; end; if a = b then begin k := 1; write('true') end; b:=''; end; i:=j; a:=''; end; if k=0 then writeln('false'); end. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить, есть ли одинаковые даты в заданном промежутке | InfoR | Microsoft Office Excel | 5 | 12.10.2012 14:03 |
вводится натуральное трехзначное число. Определить, есть ли среди цифр этого числа одинаковые (задание по Си++) | dimazak2009 | Помощь студентам | 0 | 11.03.2012 20:47 |
5. Дано трехзначное число. Определить, есть ли среди его цифр одинаковые | monokol | Помощь студентам | 1 | 24.12.2011 14:00 |