![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Alexan |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: Александр Репутация: ![]() ![]() ![]() |
Народ, помогите разобраться!
Задача:Дана последовательность символов, заканчивающаяся знаком «*». Известно, что среди этих символов есть двоеточие. Определить количество букв «l», стоящих после двоеточия.
program lab_816;
var
ch:char;
kol:integer;
begin
writeln('vvedite stroky');
repeat
read(ch);
if ch=':' then
begin
kol:=0;
............. ; <-- что здесь надо написать???
end
until ch='*';
writeln(kol);
readln;
readln
end.
|
![]() ![]() |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Варинт № 1
uses crt;
var
ch: Char;
count: Integer;
flag: Boolean;
begin
clrscr;
count := 0;
flag := false;
repeat
readln(ch);
if ch = ':' then flag := true;
if (flag) and (ch = 'l') then
inc(count);
until ch = '*';
writeln('count = ', count);
readln;
end.
Вариант №2 uses crt;
var
ch: Char;
count: Integer;
begin
clrscr;
count := -1;
repeat
readln(ch);
if (ch = ':') and (count < 0) then inc(count);
if (count >= 0) and (ch = 'l') then
inc(count);
until ch = '*';
writeln('count = ', count);
readln;
end.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Alexan |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: Александр Репутация: ![]() ![]() ![]() |
Огромное спасибо, klem4
![]() |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 18:39 |