Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal В произвольной последовательности чисел подсчитать количество положительных и отрицательных элементов в произвольной последовательности чисел подсчитать количество положительных и отрицательных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread980950.html Turbo Pascal Олимпийские игры - Определить страну-победителя
Опишите заданный тип, осуществите ввод данных, произведите определенные операции и выведите на печать значение полей (где возможно). Во всех случаях используйте массив из записей. Данные о неофициальном командном зачете на Олимпийских играх: страна, количество участников, количество золотых, серебряных и бронзовых медалей. Определить страну-победительницу, считая, что за первое место дается три...
Turbo Pascal Получить количество членов данной последовательности, которые больше предыдущего члена, но меньше последующего. https://www.cyberforum.ru/ turbo-pascal/ thread980885.html
Даны: натуральное число n, действительные числа a1,a2 ... An. Получить количество членов данной последовательности, которые больше предыдущего члена, но меньше последующего.
Turbo Pascal Найти сумму ряда с точностью ε=0,005, общий член которого [LATEX]{a}_{n}= (-1)^n+1/n*ln*(n^2)[/LATEX] В Паскале плиииз https://www.cyberforum.ru/ turbo-pascal/ thread980880.html
Заменить в данной строке знак "!" на сочетание "???" Turbo Pascal
Заменить в данной строке знак "!" на сочетание "???"
Turbo Pascal текстовый файл https://www.cyberforum.ru/ turbo-pascal/ thread980843.html
Создать и заполнить файл f1 числами. Переписать числа файла f1 в f2 находящиеся в интервале от
Turbo Pascal Даны n натуральных чисел. Найти их наибольший общий делитель, учитывая что НОД(а,б,с)=НОД(НОД(а,б)с) даны n натуральных чисел. Найти их наибольший общий делитель, учитывая, что НОД(a,b,c) = НОД (НОД(a,b)c). При решении определите функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида. НАПИШИТЕ КТО НИБУДЬ КОД В ПАСКАЛЕ ВАЩЕ ЧЕТ НЕ ВРУБАЮСЬ КАК ЭТО ( https://www.cyberforum.ru/ turbo-pascal/ thread980824.html Turbo Pascal Даны два предложения, в которых имеются буквы<<ш>>.Не понимаю как написатью
Даны два предложения, в которых имеются буквы "ш". найти, в каком порядке из них эта буква имеет больший порядковый номер (при счете от начала предложения). Если в предложении имеется несколько букв "ш", то должна быть учтена последняя из них. При решении определите функцию для нахождения порядкового номера последнего вхождения в предложение некоторой буквы. ВОТ ЭТО НЕ РАБОТАЕТ НЕЗНАЮ ПОЧЕМУ...
Turbo Pascal Разделите все элементы массива на сумму максимального и минимального элементов https://www.cyberforum.ru/ turbo-pascal/ thread980799.html
Пользователь вводит числовой массив А, состоящий из n элементов. Разделите все элементы массива на сумму максимального и минимального элементов. Помогите пожалуйста
Turbo Pascal тетраэдр Дан тетраэдр в пространстве.Определить точка M(x,y,z) принадлежит ли этому тетраэдру! https://www.cyberforum.ru/ turbo-pascal/ thread980764.html
площадь Turbo Pascal
найти площадь плоского замкнутого многоугольника методов статистических испытаний
Turbo Pascal многоугольник Дан многоугольник ABC.Определить, точка M(x,y,z) принадлежит ли эта точка этому многоугольнику https://www.cyberforum.ru/ turbo-pascal/ thread980762.html
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
18.10.2013, 17:45 0

Составить из символов слово - Turbo Pascal - Ответ 5201387

18.10.2013, 17:45. Показов 1773. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено artem08011997 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  c: char;
  s: string;
 
begin
  Writeln('Введите символы. Конец ввода - "пробел"');
  repeat
    Readln(c);
    s := s + c;
  until c = #32;
  Writeln('Полученное слово: ', s);
  Writeln('Его длина = ', Length(s) - 1);
  Readln
end.


Вернуться к обсуждению:
Составить из символов слово Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2013, 17:45
Готовые ответы и решения:

Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах.
Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в...

Можно ли из символов, общих для двух данных слов, составить третье слово
Вводятся три слова. Можно ли из символов, общих для двух данных слов, составить третье слово.

Образовать новое слово из символов, не входящих ни в первое слово, ни во второе
Ребят ,помогите пожалуйста сделать програму! Даны 2 слова;Образовать новое слово ,элементами...

Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом.
помогите пожалуйсьа написать программу на паскале Указать порядковые номера символов, составляющих...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2013, 17:45
Помогаю со студенческими работами здесь

Строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”
В файле «input.txt» дана строка символов. Выяснить верно ли, что среди символов этой строки имеются...

Дана строка символов. Верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”
В файле «input.txt» дана строка символов. Выяснить верно ли, что среди символов этой строки имеются...

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

Выяснить, можно ли из символов заданного слова составить заданное слово
я так понимаю, что нужно создать одномерный массив, заполнить его набором букв, а что потом? Если...

Текстовые данные. Дана строка. Можно ли из ее символов составить слово ПАСКАЛЬ
Текстовые данные, СРОЧНО, пожалуйста. Дана символьная строка, состоящая из 16 букв русского...

Определить и вывести количество символов, и заменить слово 'ложить' на слово 'класть'
Ввести предложение из нескольких слов, определить и вывести количество символов, и заменить слово...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru