Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
Шалтай-Болтай Сидел на стене. Шалтай-Болтай Свалилс<u><em>Я</em></u><em></em> во сне. Вс<em><u>Я</u></em><em><u /></em><u /> Королевска<em><u>Я</u></em> Конница, Вс<em><u>Я</u></em> королевска<u><em>Я</em></u> рать Не может Болта<em><u>Я</u></em>, Шалта<em><u>Я</u></em><em><u /></em><u />-Болта<u><em>Я</em></u>, Болта<u><em>Я</em></u>-Шалта<em><u>Я</u></em><u><em /></u> собрать!
10 букв я
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.
Простi та складнi.
Просте - на вулицi йде снiг
Складне - якщо на вулицi йде снiг, то на вулицi холодно
А := Массив случайных чисел(их количество = N)
Б := A[0]
цикл i (от 1 до N):
если остаток от деления A[i] на 2 (вроде - mod в паскале) = 0 то:
если A[i]< Б то:
Б := A[i]
Вывод(Б)