как найти позицию второго пробела в строке S (в pascal) ?
10-11 класс
|
Например так:
k:=false;
i:=pos(' ',s);
repeat
inc(i);
if (s[i]=' ') then k:=true;
until k;
writeln(i);
Другие вопросы из категории
ЗАДАЧИ:-физическая постановка задачи,математическое описание,разработка алгоритма решения заачи,программирование,описание отладки программы на ПК
страница содержит 30 строк. Всё сообщение содержит 8775 байт информации и занимает 6 страниц. сколько символов в строке??? РЕШЕНИЕ КИНЬТЕ!
количество элементов, лежащих в диапазоне [0,10].
Помогите пожалуйста.
Заранее благодарю!
этого сообщения?
P.S. помогите с другими моими задачами, пожалуйста!
Читайте также
случае надо следить за текущей позицией в строке и при вводе очередного "слова" контролировать, чтобы его длина плюс текущая позиция не превысили длины строки. в QBasic
значению наименьшего элементов. Паскаль. Не через массивы.
У меня во внешнем файле есть последовательность из отрицательных и положительных чисел!
1, 2,-3, 4, 5, -6, 7, 8, -9, 10!
Наибольшее число 10, наименьшее число -9, второе по значению наименьшее -6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)
Каждая из последующих цепочек создается такими действиями: в начало записывается буква, следующая по алфавиту за первой, далее записывается предыдущая строка и она же в обратном порядке символов (справа налево). Вот первые 4 строки, созданные по этому правилу:
(1) AB
(2) BABBA
(3) CBABBAABBAB
(4) DCBABBAABBABBABBAABBABC
16.1. С какой буквы начинается 13-я строка?
16.2. Сколько раз буква А встречается в 10-ой строке?
16.3. Какая буква стоит на 8-ой позиции в 11-ой строке?
16.4. Сколько раз встречается буква А в первых семи строках (суммарно)?
следующему правилу:
в k-ю строку дважды записывается (k-1)-я строка, затем в конец строки записывается её номер k.
Ниже показаны первые четыре строки, сформированные по описанному правилу:
0
001
0010012
001001200100123
Какая цифра стоит в 9-й строке на 1021 месте?
program sbb;
uses crt;
var
i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
random(50);
a[i,j]:=random(50);
write(' ');
write(a[i,j]);
end;
writeln
end;