Информатика | 10 - 11 классы
Составьте программу, выясняющую, есть ли в слове Х глухие согласные.
Помогите, пожалуйста.
Язык программирования - паскаль.
Составить программу на языке программирования Паскаль , которая бы соответствовала бы следующему алгоритму?
Составить программу на языке программирования Паскаль , которая бы соответствовала бы следующему алгоритму.
Составьте программу, выясняющую, есть ли в слове Х хотя бы одна из букв "о" или "а"?
Составьте программу, выясняющую, есть ли в слове Х хотя бы одна из букв "о" или "а"?
Паскаль язык программирования?
Паскаль язык программирования.
Программирование на языке Паскаль?
Программирование на языке Паскаль.
Заставить пользователя ввести отрицательное число.
Помогите пожалуйста : ).
Как сделать так чтобы выводилось число которое ввёл пользовательвот программа :язык программирования : паскаль?
Как сделать так чтобы выводилось число которое ввёл пользователь
вот программа :
язык программирования : паскаль.
Составьте программу на языке паскаль?
Составьте программу на языке паскаль.
Программирование на языке паскаль ?
Программирование на языке паскаль .
Помогите пожалуйста.
Запишите программу на языке Паскаль согласно заданному алгоритму?
Запишите программу на языке Паскаль согласно заданному алгоритму.
Составить программу на языке программирования паскаль с 3 и более переменными?
Составить программу на языке программирования паскаль с 3 и более переменными.
Написать сообщение о языке программирования паскаль пожалуйста помогите?
Написать сообщение о языке программирования паскаль пожалуйста помогите!
Дам 20 баллов!
На этой странице сайта, в категории Информатика размещен ответ на вопрос Составьте программу, выясняющую, есть ли в слове Х глухие согласные?. По уровню сложности вопрос рассчитан на учащихся 10 - 11 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
Var
S : string ;
A, i : integer ;
Begin
A : = 0 ;
WriteLn('Введи слово') ;
ReadLn(S) ;
For i : = 1 to Length(S) do
if UpperCase(S[i])in['П', 'Т', 'К', 'Т', 'Ш', 'С', 'Х', 'Ц', 'Ч', 'Щ'] then A : = 1 ;
if A = 1 then WriteLn('Есть глухие согласные')
else Write('Глухих согласных нет')
End.