pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.
a = input()
print(a[-1:] if int(a) % 2 == 0 else a[-2:-1])
Объяснение:
1) Введем число как строку.
2) Конструкция "действие1 if условие1 else действие2" (она еще называется тернарным оператором) выполняет действие1, если условие1 возвращает True, иначе выполняется действие2. Это уменьшает количество строк кода с четырех до одной.
3) Выражение s[a:b] вернет все символы в строке s в диапазоне [a; b). Выражение s[a:] вернет все символы в строке s от a до конца строки. Если a или b отрицательные, то отсчет будет вестись с конца строки. Выражение s[-1:] вернет все символы в строке, начиная с последнего (т.е., последний символ). Ну а s[-2:-1] вернет все символы с предпоследнего до последнего, исключая последний (т.е., предпоследний символ).
Поделитесь своими знаниями, ответьте на вопрос:
Информационный объём текста, подготовленного с компьютера, равен 29 мб. 1символ весит 1 байт. сколько символов содержит этот текст? объем статьи 75 кб. статья, набранная на компьютере, содержит 48 страницы, на каждой странице 40 строк. определите количество символов на каждой строке, если известно, что используется кодировка кои-8, в которой каждый символ кодируется 8 битами. объем статьи 4096 кб. статья, набранная на компьютере, содержит на каждой странице 64 строк, в каждой строке 64 символа. определите количество листов статьи, если известно, что используется кодировка кои-8, в которой каждый символ кодируется 8 битами. кодируется 8 битами.