Вузол зв'язку передає дані по двох каналах. Швидкість передавання даних одному каналу 2 МБіт/с, розмір його буфера 16 Мбайт. Швидкість передавання
даних по другому каналу 2,5 МБіт/с, розмір його буфера 10 MБайт. Визначте
сумарний розмір пакета передавання даних, якщо час передавання не повинен
перевищувати 8 с. Розв'яжіть задачу, використавши табличний процесор.
​

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] вернет все символы с предпоследнего до последнего, исключая последний (т.е., предпоследний символ).