14 часов. +- 1 или 2 часа, чтоб заснуть. 12 часов точно будет спать.
Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
Иуееиу,у меня так получилось,правильно?
еиу заменяем цифрами 012
нам надо найти слово которое стоит на 411 месте
на 411 месте должно быть 410 (т.к. первое число 000000)
410/3=136(2) в скобках остаток, на 3 т.к. 3 буквы
136/3=45(1)
45/3=15(0)
15/3=5(0)
5/3=1(2)
1/3=0(1) -> 120012 ->иуееиу
НА ЛОДКУ СКОЛЬКО ПОМЕЩАЕТСЯ РЫЦАРЕЙ И ОРУЖЕНОСЦЕВ?
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.