Первое третье и последние
Var
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] <> s[l-i+1] then begin
writeln('NO');
halt;
end;
end;
writeln('YES');
<span>end.</span>
Маска сети может иметь максимальный формат 255.255.255.255
Поэтому ответ на вопрос - 255
Заметим, что так как
собаки 200
кошки 250
кошки | собаки 450
то нет страниц, на которых ключевыми словами являются одновременно собаки и кошки (200+250=450 ⇒ кошки & собаки 0). Диаграмма Эйлера для такого случая показана на прилагаемом рисунке.
К1+К3 = 200
К2+К4 = 25
K3+К4+К5 = 450
К1+К2+К3+К4 = 450
K4 = 40
K3 = 50
К1+К2+К3+К4+К5 - ?
K5 = (K3+К4+К5)-K3-K4 = 450-50-40 = 360
К1+К2+К3+К4+К5 = 450+360 = 810
Ответ: 810
print("Ноль в качестве знака операции завершит работу программы")
while True:
s = input("Знак (+,-,*,/): ")
if s == '0': break
if s in ('+','-','*','/'):
x = float(input("x="))
y = float(input("y="))
if s == '+':
print("%.2f" % (x+y))
elif s == '-':
print("%.2f" % (x-y))
elif s == '*':
print("%.2f" % (x*y))
elif s == '/':
if y != 0:
print("%.2f" % (x/y))
else:
print("Деление на ноль!")
else:
print("Неверный знак операции!")