Вопрос по информатике:
Составие программу,которая печатает "да", если слово содержит букву"е" и "нет", если не содержит . отладку выполнить для слов : "предмет" и "колонна"
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.12.2016 08:19
- Информатика
- remove_red_eye 7762
- thumb_up 24
Ответы и объяснения 2
Var x:string; k,i:integer;
begin
k:=0;
read(x);
for i:=1 to length(x) do begin
if copy(x, i, 1)='е' then k:=k+1;
end;
if k>0 then writeln('Да') else writeln('Нет');
end.
- 07.12.2016 01:52
- thumb_up 18
Var
s, a: string;
i: integer;
begin
readln(s);
{первый вариант}
a := 'Нет';
for i := 1 to length(s) do
if (s[i] = 'e') or (s[i] = 'е') then begin
a := 'Да';
break;
end;
writeln(a);
{второй вариант}
if (Pos('e', s) > 0) or (Pos('е', s) > 0) then
writeln('Да')
else writeln('Нет');
end.
- 08.12.2016 19:43
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.