5.1 Ввести
10-11 класс
|
с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши
"Ввод". Программа должна определить длину введенной строки L, и, если
длина L >6, то выделяется подстрока в { } скобках.
5.2 Дана
строка. Подсчитать количество букв k в последнем его слове.
var
l,a,b:integer;
s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
end.
var
n,i,k:integer;
s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.
А если в тексте скобок нет, то и ничего не печатаем?
Тогда написать что нет скобок
А скобки какие? А то в задании фигурные, а здесь ты простые пишешь.
ещё кстати может быть, то что одна скобка открыта, а другой нет, то написать " что не закрыта(открыта) скобка"
Другие вопросы из категории
Вводится последовательность целых чисел, заканчивающаяся нулем. Преобразовывать последовательность следующим образом:
1) заменить отрицательные числа в последовательности на их модули и вывести получившуюся последовательность;
2) в полученной последовательности заменить четные числа на максимальное число последовательности, вывести результат;
3) в полученной последовательности вычесть из каждого члена последовательности 2, вывести результат;
4) в полученной последовательности заменить отрицательные на 0, вывести результат.
Пример.
Последовательность: 1 2 3 0
1) 1 2 3
2) 1 3 3
3) –1 1 1
4) 0 1 1
Дано натуральное число n (n<9999). Найти предпоследнюю цифру числа ( в предположении, что n>10).
Составьте программу вычисления в массиве А(10), заполненном случайными числами из интервала [-1;6], суммы всех элементов массива.
Читайте также
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
2.Ввести число . определить четное или не
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да