с Pascal! Напишите 6 программ на нём, умоляю!

1. Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. Определить количество слов, которые заканчиваются буквой ‘w’.

2. Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. Определить количество слов, которые начинаются и оканчиваются одной и той же буквой.

3. Дан текст. Составить программу проверки правильности написания сочетаний «жи»-«ши», «ча»-«ща», «чу»-«щу». Исправить ошибки.

4. Дан текст, содержащий цифры, латинские и русские буквы. Подсчитать сумму цифр, встречающихся в тексте.

5. Дан текст, содержащий от 1 до 30 слов, в каждом из которых от 1 до 5 малых латинских букв, между словами запятая, за последним словом – точка. Вывести на экран эту же последовательность слов, но в обратном порядке.

6. Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. Вывести текст, составленный из первых символов всех слов текста.

278

333

Посмотреть ответы 1

Ответы на вопрос:

mikhalyukmahem

Информатика

4,5(11 оценок)

Var month: integer; begin write('введите номер месяца: '); readln(month); if month = 12 or month = 1 or month = 2 then writeln('зима'); if month > = 3 and month =< 5 then writeln('весна'); if month > = 6 and month =< 8 then writeln('лето'); if month > = 9 and month =< 11 then writeln('осень'); end.