<span>тильда (~) ,</span><span>знак номера (#) ,п</span><span>роцент (%) ,</span><span>амперсанд (&) ,</span><span>звездочка (*) ,</span><span>фигурные скобки ({}) ,</span><span>обратная косая черта (\) ,</span><span>двоеточие (:) ,</span><span>угловые скобки (<>) ,</span><span>вопросительный знак (?) ,</span><span>косая черта (/) ,</span><span>знак плюс (+) ,</span><span>вертикальная черта (|), </span><span>знак кавычек (")</span>
Иван
Витебск,химия
Андрей
Харьков,математика
Борис
Минск,физика
Var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
begin
write('a='); readln(b);
if b<a then l:=false;
a:=b;
end;
writeln(l);
<span>end.
Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True</span>
Var i:integer;
begin
for i := 1 to 10 do
writeln('1*', i, '=', i);
<span>end.</span>
Var x,x1,x2:integer;
begin
readln(x);
x1:=(x mod 100)*10+(x div 100);
x2:=(x1 mod 100)*10+(x1 div 100);
writeln(x1,' ',x2);
writeln(x+x1+x2);
end.
Пример:
516
<span>165 651
1332</span>