Var
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a[1:]; a.Println;
end.
<u>Пример</u>
n= 13
33 43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
<u>Замечание:</u> использован динамический массив, так что он просто станет на один элемент короче.
<span>Кодирование – это операция преобразования знаков или групп знаков одной знаковой системы в знаки или группы знаков другой знаковой системы. </span>
I=1, a=6*1-2=4
i=2, a=4*2-2=6
a=6+1=7
(8,2,0) - Число AND 65274 (1111111011111010(2))
(1,8,0) - Число AND 65276 (1111111011111100(2))