Допустим, в стране N действуют следующие правила дорожного движения: Детям до 7 лет можно ездить в машине только в специальных креслах;
Детям в возрасте от 7 до 12 лет можно ездить на заднем сидении без специального кресла;
Тем, кому уже исполнилось 12 можно ездить на переднем пассажирском сидении;
А тем, кому исполнилось 18, можно водить машину самим.

Напишите программу, которая на вход будет принимать возраст человека, а на выходе будет определять, как этому человеку можно ездить в машине по правилам дорожного движения.
Подсказка: для проверки нескольких условий можно использовать оператор elif.

Пример входа №1:
6
Пример результата №1:
Вы можете ездить только в специальном кресле!

Пример входа №2:
19
Пример результата №2:
Вы можете водить машину самостоятельно!
Питон

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.

только вчера это

если п и ж аборигены, то она должны всегда говорить правду.значит ж(абориген)говорит правду, что он абориген и п передаёт правду. он абориген.

если п иж пришельцы, то они должны врать.значит ж говорит (неправду) я абориген, и п передаёт он пришелец. контексту.

если п-пришелец,а ж-абориген, то п должен врать, а ж говорить правду. значит жсказал правду " я абориген", а проводник передал он пришелец. несоответсвует контексту.

если п- абориген, а ж пришелец, то п всегда говорит правду, а ж неправду. значит  сказал" неправду "я абориген" а п передал он абориген.

в обоих случаях проводник абориген.

п- проводник

ж - житель

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

00-ff - стандартная кодировка оттенков серого