Вопрос по информатике:
Помогите составить задачу в Pascal
С клавиатуры вводят строку. Составить программу, которая:
a) определит количество символов в ней;
b) выведет на экран первый, второй и последний символы;
c) выведет на экран коды первого и последнего символов строки;
∗ d) проверит, не совпадают ли первый и последний символы строки;
∗ e) определит количество символов в строке чётно или нечётно;
∗ f) проверит, есть ли в ней (в строке) слово «мама».
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.12.2016 07:27
- Информатика
- remove_red_eye 11222
- thumb_up 15
Ответы и объяснения 1
// PascalABC.Net 3.0, сборка 1064
var
s:string;
n:integer;
begin
Write('Введите строку: '); Readln(s);
// a
n:=Length(s);
Writeln('Количество символов в строке равно ',n);
// b
Writeln(s[1],', ',s[2],', ',s[n]);
// c
Writeln(Ord(s[1]),', ',Ord(s[n]));
// d
if s[1]=s[n] then Writeln('Первый и последний символы совпадают')
else Writeln('Первый и последний символы не совпадают');
// e
if n mod 2 = 0 then Writeln('Количество символов в строке четно')
else Writeln('Количество символов в строке нечетно');
// f
if Pos('мама',s)>0 then Writeln('Строка содержит слово "мама"')
else Writeln('Строка не содержит слово "мама"')
end.
Тестовое решение:
Введите строку: Тестовая строка со словом внутри
Количество символов в строке равно 39
Т, е, и
210, 232
Первый и последний символы не совпадают
Количество символов в строке нечетно
Строка содержит слово "мама"
- 09.12.2016 17:33
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.