Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вывести массив, выделив цветом четные элементы. Найти сумму четных положительных, а так же четных отрицательных Распечатать на экране двумерный массив 6х6 из промежутка(-99,99). Вывести этот же массив но выделив цветом четные элементы. Найти сумму четных положительных, а так же четных отрицательных. Сооющить... https://www.cyberforum.ru/ pascalabc/ thread780820.html	вычисление значений функции Pascal ABC Вычисление значений функции Yравно/x+2 с шагом 0,1. Значение аргумента беруться из(-1,1) и еще таблица значений функции y равно sqrt(1/2x-1)+2 с шагом 0,1 значение аргумента беруться из (0,3,8)
Pascal ABC Коды клавиш клавиатуры в Pascal ABC Не могли бы Вы посоветовать, где можна найти справку о кодах клавиш клавиатуры в Pascal ABC? https://www.cyberforum.ru/ pascalabc/ thread780786.html	Pascal ABC Дружественные числа (процедуры и функции) https://www.cyberforum.ru/ pascalabc/ thread780731.html Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого, за исключения его самого (например числа 220 и 284). Описать процедуру проверки пары чисел на...
Pascal ABC Составить программу табуляции функции, заданной рекуррентною формулой 1.Составить программу табуляции функции, заданной рекуррентною формулой f(0)=3, f(1)=6, f(2k)=3f(k)-1, f(2k+1)=3f(k+1)-2k; Добавлено через 1 час 18 минут апнем ибо срочно Добавлено через 15...	Pascal ABC Процедуры: проверить истинность "модуль первого отрицательного элемента меньше последнего положительного элемента" 1.Если в заданном массиве Р(14)модуль первого отрицательного элемента меньший за последний положительный элемент, то переменной Т присвоить значение TRUE, иначе FALSE. Заранее благодарен! ... https://www.cyberforum.ru/ pascalabc/ thread780720.html
Pascal ABC Найти процент двоек, троек, четверок и пятерок студента В массиве хранятся оценки студентов по информатике. Найти: • среднюю оценку; • максимальную и минимальную оценку; • процент двоек, троек, четверок и пятерок; • количество оценок, превышающих... https://www.cyberforum.ru/ pascalabc/ thread780706.html	Поиск в массиве Pascal ABC Пусть дан массив, содержащий даты. Каждая дата - это число, месяц, год. нужно найти в массиве наименьший год
Pascal ABC Не получается раскрасить линии https://www.cyberforum.ru/ pascalabc/ thread780681.html Помогите пожалуйста раскрасить линии в различные цвета Program zad4; uses graphabc; var i: integer; begin For i:= 8 downto 1 do circle(350-10i,300,10i); end.	Pascal ABC Исправить ошибку в коде не понимаю в чем тут ошибка...? program t; var M: array of integer; b,i,j: integer; begin j:=0; i:=0; max: b; ; вот здесь что-то не так... for i:= 1 to m do... https://www.cyberforum.ru/ pascalabc/ thread780648.html
Pascal ABC Из слова ИНСТРУМЕНТЫ составить слова: СТРУНЫ,ТРУС,ТУРИСТ Составить программу которая из слова ИНСТРУМЕНТЫ составляет слова: СТРУНЫ,ТРУС,ТУРИСТ	Pascal ABC Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s https://www.cyberforum.ru/ pascalabc/ thread780574.html

CodeR

Фрилансер

3417 / 2814 / 3000

Регистрация: 08.02.2012

Сообщений: 8,515

Записей в блоге: 1

07.02.2013, 09:30

Вывести все слова нечетной длины, в которых есть буква Т - Pascal ABC - Ответ 4103473

07.02.2013, 09:30. Показов 1354. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

Const mn=[' ',',','.','?','!'];
Var s,s1:string;
    i,k:byte;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if (Pos('T',s1)>0)and odd(Length(s1)) then 
       Begin
         inc(k);
         writeln(s1);
       End;
       s1:='';
     End;
    if k=0 then writeln('Нету таких слов');
End.

Вернуться к обсуждению:
Вывести все слова нечетной длины, в которых есть буква Т Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.02.2013, 09:30

Готовые ответы и решения:

Найти все и вывести все слова в которых есть буква "к"
дана строка (ввод с клавы) найти все и вывести все слова в которых есть буква...

Вывести все слова, в которых есть буква "a"
не могу найти ошибку int i=0,j=0,a=0,schet=0; char s,s1; cin.getline(s,50); ...

Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре
дана строка, между словами не менее одного пробела, в конце точка. Вывести все слова, отличные от...

Вывести все слова четной длины, у которых все буквы из первой половины слова встречаются во второй
Задача: Дана последовательность символов, состоящая из слов четной длины. Вывести на экран все...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.02.2013, 09:30

Помогаю со студенческими работами здесь

Как удалить все слова в строке, в которых есть буква а?
Как сделать эту прогу?

Удалить из строки все слова в которых есть заданная буква
Здравствуйте вот у меня задача: Дана строка, содержащая последовательность слов, разделенных...

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

Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м»
Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м».

Наверх