000Данил111111111
16.04.2021 02:29

сделать цветные линии и точки(картинка нарисована в программе "Паскаль")
чень заранее

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
эля0521
08.12.2022 02:24

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

2.

Тонкая прозрачная полиэтиленовая папка-конверт для хранения бумаг.

Имя файла обычно состоит из двух частей, разделенных точкой:

Название (до точки, часто также называют именем);

Расширение.

у меня нет ответа на 3 вопрос

Во время работы на компьютере с файлами и папками чаще всего проводятся такие действия (операции), как:

Создание.

Файл можно открыть в специальной программе. ...

Изменение содержимого файла (редактирование).

Копирование (создание дубликата файла).

Переименование.

Перемещение.

Архивирование.

Удаление.

0,0(0 оценок)
Ответ:
LeRaDrEeMuRuNdErTaLe
30.04.2023 11:15
Var
   Text,S:string;
   n,k:boolean;
   i:integer;
Begin
Write('Введите текст на русском языке: ');ReadLn(Text);
Text:=LowerCase(Text)+' '; // перевоит текст в нижний регистр
WriteLn(Text); // показывает действие предыдущей строки
For i:= 1 to Length(Text) do
    Begin
    if ('а' <= Text[i])and(Text[i] <= 'я')or(Text[i] = 'ё') then S:=S+Text[i] // записываем русские буквы в S
    else // как только встречаем другой символ, проверяем,
       if Length(S) > 0 then // есть ли в S хоть одна буква,
          Begin // и если есть, то проверяем условие задачки, и выводим слово на экран, если оно истинно
          if (S[1] in 'бвгджзйклмнпрстфхцчшщ')and(S[Length(S)] in 'аоэиуыеёюя') then WriteLn(S);
          S:=''; // далее обнуляем S
          End;
    End;
End.

Пример работы программы:

Введите текст на русском языке: Дан произвольный текст на русском языке. Написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой.
дан произвольный текст на русском языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой.
на
программу
которая
слова
начинающиеся
на
согласную
заканчивающиеся
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота