С клавиатуры вводят слово и символ. Составьте программу, которая определяет позицию заданного символа.
10-11 класс
|
program xxx;
var a,s : string;
i:integer;
begin
writeln ('Введите слово и символ-');
readln (s,a);
for i:=1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
паскаль:
uses crt;
var a,b:string;\ а-слово ,b-символ
i:integer;\ переменная для счета
begin
writeln ('Слово и символ');
readln (a,b);\\ввод данных
for i:=1to length(a) do if copy (a,i,1)=b then writeln (i);\\Копирование по порядку символов слова а и сравнение каждого с символом b. Вывод ответа. Или ответов
readkey;\\если символы в слове повторяются
end.
Другие вопросы из категории
Поменять местами строки матрицы с номерами K1 и K2.
Решить в Pascal. Перед тем как выложить, проверить свое решение.
благодарна!
0011010100100000111000011110000011101011111010111110111011100010
значения которых превышают средне арифметическое значений его элементов
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.
в)подсчитывает количество вхождений заданного символа.