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.
Доступность (документа) — свойство документа, состоящее в том, что форма представления документа обеспечивает физическую возможность измерения заданных параметров этого представления документа (содержания, атрибутов, технологии) заданными средствами в заданных точках за конечное время. ценная и актуальная информация выражена непонятными словами, она может стать бесполезной. Информация становится понятной, если она выражена языком, на котором говорят те, кому предназначена эта информация. ПРИМЕРЫ: 1) Дошкольник спрашивает у старшеклассника: "Как светит лампочка?". В ответ слышит: "Существует две теории света – волновая и корпускулярная. Согласно первой …". 2) Объяснять материал на китайском языке.
Техника безопасности при работе с компьютером очень важна, особенно если речь идет о школьных занятиях. Ведь современную образовательную систему трудно представить без компьютерных технологий. Кроме того, данная информация будет полезна и родителям. Техника безопасности при работе с компьютером Для начала стоит отметить важность защиты здоровья ребенка во время работы с электронной и вычислительной техникой. Кроме того, требования к образовательным учреждениям предусматривают и информационную безопасность ученика во время выхода в интернет.
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.