Опубликовано 6 лет назад по предмету Информатика от nnnhhh3

С клавиатуры вводят слово и символ. Составьте программу, которая определяет позицию заданного символа.

Ответ

Ответ дан abc123art

паскаль:

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.
Ответ

Ответ дан ali07

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.

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 9 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 9 месяцев назад

Из каких неживых частей состоит экосистема

Другие предметы - 9 месяцев назад

На какие расы делятся население земли

Другие предметы - 9 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 9 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: