Дано натуральное число n. выяснить входит ли цифра 3 в запись числа n, и поменять порядок цифр на обратный.

Если тебе нужно перевести какое то число из десятичной например в восьмиричную запиши само число например 567 а внизу напиши знак если в восьмиринную то 8 если в шестиричную то 6 потом над числами пишешь цифры от 0 и дальше в зависимости от количества цифр пишешь с права на лево напри мер 567 над 7 пишешь 0 над 6 пиши 1 и тд дальше решаешь.  у тебя восьмиричная система пишешь 5*8 (какая ситема на то и умножаешь) и над цифрой 5 цифра 2 значит 8 будет во второй степени дальше будет 8 в 1степени и в 0 степени выполняешь умножение 5*8 во 2 степени =320 тоже самое выполняешь с другими числами складываешь значения и

Неверный код:

program n9;

var v2,v3,v4,v5,i,st: integer;

m: array[1..20] of integer;

begin

st:= 20;

writeln('Количество учеников: ',st);

for i:= 1 to 20 do

begin

write('Введите оценку ',i,' ученика: ');

readln(m[i]);

if m[i] == 2 then v2:= v2 + m[i];

if m[i] == 3 then v3:= v3 + m[i];

if m[i] == 4 then v4:= v4 + m[i];

if m[i] == 5 then v5:= v5 + m[i];

end;

end.

Верный код:

program n9;

var v2,v3,v4,v5,i, КОЛИЧЕСТВО УЧЕНИКОВ В ЦИФРАХ integer;

m: array[1..20] of integer;

begin

st:= 20;

writeln

for i:= 1 to 20 do

begin

write

readln(m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ]);

if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 2 then v2:= v2 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];

if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 3 then v3:= v3 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];

if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 4 then v4:= v4 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];

if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 5 then v5:= v5 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];

end;

end.