<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ
Кажлор - ето ложка, колмес - точно не знаю но наверное количество месяцев
3). Подставим в первый оператор значение х=25
if (25=10) or (25<2) then y:=5 else y:=10;
Теперь вычислим значение логического выражения, стоящего после if
false or false дает false.
Условный оператор if при false передаст управление оператору, стоящему после else и выполнится y:=10;
Это значение (10) и будет выведено.
4) Количество повторений цикла вида for i=a to b вычисляется по формуле
b-a+1.
Подставляем значения: 5-0+1 - 6. Получается, что 6 раз.
# просчитайте количество целых чисель от L до R все цифры которых различный
# Код на ruby 2.2.3p173
def allDifferentNumbers?(n)
a = []
while n > 0 do
return false if a.include?(n % 10)
a << n % 10
n = n / 10
end
return true
end
def zadanie(l, r)
k = 0
for i in l..r
k += 1 if allDifferentNumbers?(i)
end
return k
end
# Примеры применения
p zadanie(11, 13)