// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,1,10); a.Println;
a:=a.Reverse.ToArray; a.Println;
end.
Пример:
n = 10
5 4 2 1 3 8 2 2 5 2
2 5 2 2 8 3 1 2 4 5
<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.
Последний невозможно перевести, так как число записано неверно, число в 7 СС может состоять из цифр от 0 до 7(а там есть 8)
Полное решение не писал, так как много.
В интернете посмотрите тему "Перевод из одной Системы Счисления в другую"
Попрыгаем?
ВПРАВО-ВЛЕВО - в точке 1 (теперь кузнечик начинает прыгать из точки 1)
ВПРАВО-ВЛЕВО - в точке 2 (прыгаем из точки 2 и т. д.)
ВПРАВО-ВЛЕВО - в точке 3
ВЛЕВО-ВПРАВО - в точке 4
ВЛЕВО-ВПРАВО - точке 5
Напрыгались?