Хмельницкий-Киев URL-адрес Хмельницкий-Львов URL-адрес
Хмельницкий-Одеса URL-адрес
​

//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-

age=int(input('Введите ваш возраст: ')

if age < '18':

    print('Вам запрещено вступать в брак')

    print('Вам запрещено получать водительские права')

    print('Вам запрещено покупать алкогольные напитки')

elif age >= '18':

    print('Вам разрешено вступать в брак')

    print('Вам разрешено получать водительские права')

    print('Вам разрешено покупать алкогольные напитки')

Объяснение:

Первая команда отвечает за ввод возраста.

Вторая команда отвечает за то, что есть тебе меньше 18, то тебе запрещено делать подобные действия.

Третье команда делает напротив второй.

Команда if дает условие, при которой будут вводится следующие команды.

Команда elif тоже дает условие, но она работает, если первое условие не будет выполнено.

Итого мы получаем то, что программа скажет, можно ли нам делать подобные действия или нет