var
str:string[30];
x:char;
i, k:integer;begin
k :=0;
x :='b ';readln(str);for i :=1to length(str)dobeginif str[i]= x then k := k +1;end;writeln(k);end.
program stroki;var
s:string;
i:byte;beginwrite('введите строку: ');read(s);writeln;
i :=1;while i <= length(s)dobeginif(s[i]in['/','\'])thenbegin
delete(s, i,1);
i := i -1;end;
inc(i);end;writeln(s);writeln();writeln();end.
var
s:string;
i:integer;
f:boolean;beginwrite('Текст: ');readln(s);for i :=1to length(s)-2dobeginif(s[i]='o')and(s[i +1]='n')and(s[i +2]='e')thenbegin
f :=true;break;end;end;if f thenwriteln('Есть!')elsewriteln('Нет!');end.
// Если есть одинаковое кол-во максимальных букв - выводит первое из списка)var
s:string;
max_c, k:integer;
max_b:char;
mas1:array[1..1000]ofchar;
mas2:array[1..1000]ofinteger;beginreadln(s);
k :=2;forvar i :=1to1000do mas2[i]:=1;
mas1[1]:= upcase(s[1]);forvar i :=2to length(s)dobeginif s[i]=' 'thenbegin
mas1[k]:= upcase(s[i +1]);inc(k);end;end;forvar i :=1to k -1doforvar j := i +1to k dobeginif mas1[i]= mas1[j]then inc(mas2[i]);end;
max_c :=-1;forvar i :=1to k dobeginif max_c < mas2[i]then max_c := mas2[i];end;forvar i :=1to k doif max_c = mas2[i]thenbegin max_b := mas1[i];break;end;writeln;writeln('Буква: ', max_b,'. Кол-во: ', max_c);end.
В данном случае буквы в строке могут использоваться многократно. При тестирование в Linux на FreePascal корректно отображается если вводимая строка на английском языке.
var
s, w:string;
ls, lw, i, j, let:byte;beginreadln(s);
ls := length(s);
randomize;for i:=1to7dobegin
lw := random(4)+2;
w :='';for j:=1to lw dobegin
let := random(ls)+1;if s[let] <> ' 'then
w := w + s[let];end;writeln(w);end;end.
var
s, w:string;
l,i:byte;
count:byte;beginreadln(s);
l := length(s);
w :='';
count :=0;for i:=1to l doif s[i] <> ' 'then w := w + s[i]elseif w <> ''thenbeginwriteln(w);
w :='';
count := count +1;end;if w <> ''thenbegin// последнее слово после которого нет пробелаwriteln(w);
count := count +1;end;writeln(count);end.
Рекомендации: для приведения числовой переменной к переменной строкового типа использовать готовую стандартную функцию IntToStr.
Пример использования:
Program Example74;{ This program demonstrates the IntToStr function }Uses sysutils;Var s:string;
i,f:byte;Begin
f:=3;
s:='';for i:=1to7dobegin
f:=f*2;
s:=s +'['+ IntToStr(f)+']';end;writeln(s);End.
Дана строка символов. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, у которых первый и последний символы совпадают между собой (если можно с комментариями).
В строке S все слова, которые начинаются на гласную букву, изменять следующим образом: поменять местами первый и последний символы. Слова разделены хотя бы одним пробелом.
program Schet3;var
t:string;
s1, s2, s3:char;
i, r, y, u:integer;beginreadln(t);readln(s1);readln(s2);readln(s3);
r :=0;
y :=0;
u :=0;for i :=1to length(t)dobeginif t[i]= s1 then
r := r +1;if t[i]= s2 then
y := y +1;if t[i]= s3 then
u := u +1;end;writeln(s1,' в тексте ', r);writeln(s2,' в тексте ', y);writeln(s3,' в тексте ', u);end.
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Рассматривая эти слова как числа, определить и напечатать сумму чисел, оканчивающихся на цифры 3 или 4.
uses crt;var
s,s1:string;
sum, probel, i,b:integer;
a:longint;{вдруг число большое будет}begin
clrscr;readln(s);
s:=s+' ';{добавляем пробел, чтоб читалось и последнее число}
sum:=0;
s1:='';
probel:=1;while probel <> 0dobegin
probel:=pos(' ',s);if probel=1then delete(s,1,1)elsebeginfor i:=1to probel-1dobegin
s1:=s1+s[i];{получили строку с числом}end;
val(s1,a,b);{эта процедура возвращает в а число в строке, b для сообщения об ошибке}if(a mod10=3)or(a mod10=4)then
sum:=sum+a;
delete(s,1,probel);{удаляем то, что уже обработали, включая пробел}
s1:='';end;end;write(sum);readlnend.
Может есть и более простые способы, но я сам чайник-новичок)
Дан текст, состоящий из 20 букв. Проверить, можно ли из заданной последовательности символов составить Ваше имя и напечатать его. В противном случае напечатать текст “Нет имени”.
Дана строка символов длиной не более 255 символов. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, у которых первый и последний символы совпадают между собой.
Дана строка символов (2-3 строки) в файле F1, состоящая из слов, отделенных друг от друга пробелами. Составить функцию, удаляющую из строки слово с номером М (М вводить в диалоге и включить в список параметров функции). Новую строку записать в файл F1 после исходной.
Комментарии
Количество символов "b"
Составьте программу, которая определит количество символов "b" в заданной строке.
Вот ваша программа
Ответ на Количество символов "b" от Гость (не проверено)
Написать программу, которая…
Написать программу, которая удлиняет все встреченные буквы «и» во введенной фразе на величину, равную количеству найденных «и» на данных момент.
Решение
Ответ на Написать программу, которая… от Гость (не проверено)
Строка из N звездочек
Составить символьную строку из N звездочек.
var…
Ответ на Строка из N звездочек от Гость (не проверено)
Удалить из этой строки знаки / и \
Есть строка (любая), нужно удалить из этой строки знаки / и \.
Ответ
Ответ на Удалить из этой строки знаки / и \ от Гость (не проверено)
Составьте программу, которая…
s:string='класс';…
Ответ на Составьте программу, которая… от Гость (не проверено)
Программа, подсчитывающая количество цифр в заданной строке
Написать программу, подсчитывающую количество цифр в заданной строке.
Ответ
Ответ на Программа, подсчитывающая количество цифр в заданной строке от Гость (не проверено)
Есть ли в тексте слово one
Дан текст. Определить, есть ли в тексте слово one.
Программа на Pascal
Ответ на Есть ли в тексте слово one от Гость (не проверено)
Содержит ли текст символы, отличающиеся от букв и цифр
Дан текст. Определить, содержит ли он символы, отличающиеся от букв и цифр.
Решение
Ответ на Содержит ли текст символы, отличающиеся от букв и цифр от Гость (не проверено)
На какую букв начинается больше всего слов в тексте
Нужно ввести текст и определить, на какую букв начинается больше всего слов в тексте.
Программа
Ответ на На какую букв начинается больше всего слов в тексте от Гость (не проверено)
Составить из строки 7 любых слов
Дана строка содержащая ваше имя и фамилию. Составить из строки 7 любых слов.
Решение
Ответ на Составить из строки 7 любых слов от Гость (не проверено)
В данном случае буквы в строке могут использоваться многократно. При тестирование в Linux на FreePascal корректно отображается если вводимая строка на английском языке.
Записать на Паскаль
Кол-во букв 'P'
Ответ на Записать на Паскаль от Гость (не проверено)
Помогите решить
1
Ответ на Помогите решить от Гость (не проверено)
Подсчитать количество слов в строке
Ввести небольшой текст (с пробелами) в строку S. Подсчитать количество слов в строке и вывести все слова в столбик.
Решение
Ответ на Подсчитать количество слов в строке от Гость (не проверено)
Пользователь вводит строку,…
Пользователь вводит строку, разделяя слова любым количеством пробелов.
Для 2 варианта: после 2-го и 5-го слов вставить их порядковые номера
Вход: __I__develop_____software__with___friendly___user_interface
Нормализованная строка: I_develop_software_with_friendly_user_interface
Выход: 1 вариант: I[1]_develop_software_with[4]_friendly_user_interface
2 вариант: I_develop[2]_software_with_friendly[5]_user_interface
Рекомендации: для приведения числовой переменной к переменной строкового типа использовать готовую стандартную функцию IntToStr.
Пример использования:
Заменить одну подстроку на другую
Дана строка символов длинною n. Требуется заменить в ней группу слов ball на ballon.
Если правильно понял условие…
Ответ на Заменить одну подстроку на другую от Гость (не проверено)
Если правильно понял условие, то вот:
Дана строка символов. Группы…
Дана строка символов. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, у которых первый и последний символы совпадают между собой (если можно с комментариями).
Программа
Ответ на Дана строка символов. Группы… от Гость (не проверено)
В строке S все слова,…
В строке S все слова, которые начинаются на гласную букву, изменять следующим образом: поменять местами первый и последний символы. Слова разделены хотя бы одним пробелом.
Решение
Ответ на В строке S все слова,… от Гость (не проверено)
Дана строка. Определить,…
Решение 1
Ответ на Дана строка. Определить,… от Гость (не проверено)
Решение 2
Ответ на Дана строка. Определить,… от Гость (не проверено)
Помогите решить задачу со строками
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Рассматривая эти слова как числа, определить и напечатать сумму чисел, оканчивающихся на цифры 3 или 4.
Ответ
Ответ на Помогите решить задачу со строками от Гость (не проверено)
Может есть и более простые способы, но я сам чайник-новичок)
Дан текст. Найти наибольшее…
Дан текст. Найти наибольшее количество идущих подряд одинаковых символов
Решение
Ответ на Дан текст. Найти наибольшее… от Гость (не проверено)
Во введённой строке символов.
Строки в Pascal
Строки
Сколько цифр в строке
Составить программу, которая подсчитывает, сколько содержится цифр в строке длиной 20 символов.
Составить имя из заданных букв
Дан текст, состоящий из 20 букв. Проверить, можно ли из заданной последовательности символов составить Ваше имя и напечатать его. В противном случае напечатать текст “Нет имени”.
Строковые переменные
Дана строка символов длиной не более 255 символов. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, у которых первый и последний символы совпадают между собой.
по маленькой букве вывести большую
Написать программу, в которой по малой русской букве выводится соответствующая большая.
Дана строка символов ( 2-3 строки ) в файле F1
Дана строка символов (2-3 строки) в файле F1, состоящая из слов, отделенных друг от друга пробелами. Составить функцию, удаляющую из строки слово с номером М (М вводить в диалоге и включить в список параметров функции). Новую строку записать в файл F1 после исходной.
ПаскальАВС
Вставить перед одной буквой другую
Вставьте после буквы «я» в слове букву «к» и перед ней букву «с».