// PascalABC.NET 3.0, сборка 1076
begin
var s:='SCHOOL555INFORM';
Writeln('Пароль: ',s.Distinct.Take(6).JoinIntoString(''))
end.
<em><u>Результат выполнения программы:</u></em>
Пароль: SCHOL5
Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
<span>AB=10*161+11*160=160+11=171</span>
Нц 5 раз
нц 3 раз
пустить перо;
сместиться на вектор(8;0);
сместиться на вектор (-4;2);
сместиться на вектор (-4;-2);
поднять перо;
сместиться на вектор(0;2);
кц
сместиться на вектор (2;-4);
кц
Это означает, что люди очень много говорят и обещают и далеко не всегда выполняют свои обещания