Преобразуем условие в более понятное. Обозначаем: a=Первая буква согласная; b=Вторая буква согласная c=Третья буква гласная Тогда условие можно записать следующим образом: Перейдем к исходным обозначениям, учтя, что отрицание "гласная" есть "согласная", а отрицание "согласная" есть "гласная": (Первая буква гласная ИЛИ Вторая буква гласная) И Третья буква согласная. Можно сформулировать еще короче: "Первая ИЛИ вторая буква гласная, а третья обязательно согласная". Этому условию удовлетворяет только имя 4) Лидия - в нем вторая буква гласная, а третья согласная.
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
program z1;
var
x, y: integer;
begin
readln(x);
readln(y);
if (x < y) then
x := y * 5;
writeln('X = ', x);
end.
Объяснение:
program z1; // Название программы
var
x, y: integer; // Целочисленные переменные x и y
begin // Начало программы
readln(x); // Считываем x с клавиатуры
readln(y); // Считываем y с клавиатуры
if (x < y) then // Если x < y, тогда
x := y * 5; // x = y * 5
writeln('X = ', x); // Вывод ответа
end. // Конец программы