Ldfdf L Ldfdf Регистрация 9 Дек 2012 Сообщения 90 Репутация 0 Спасибо 0 Монет 0 3 Мар 2024 #1 If N > 9 Then Begin Vs := N; St := 1; While Vs > 9 Do Begin St := St * 10 Vs := Vs Div 10 End; N := M Mod St Div 10 * 10 + N Mod 10 * St + Vs End:
If N > 9 Then Begin Vs := N; St := 1; While Vs > 9 Do Begin St := St * 10 Vs := Vs Div 10 End; N := M Mod St Div 10 * 10 + N Mod 10 * St + Vs End:
plplpl P plplpl Регистрация 8 Май 2013 Сообщения 73 Репутация -3 Спасибо 1 Монет 0 3 Мар 2024 #2 Это нельзя читать до 2025 года.
nthvby N nthvby Регистрация 23 Ноя 2012 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 3 Мар 2024 #3 Это послание инопланетян землянам.
sasasa S sasasa Регистрация 12 Ноя 2012 Сообщения 66 Репутация 0 Спасибо 0 Монет 0 3 Мар 2024 #4 пАСКАЛЬ
crissy C crissy Регистрация 25 Сен 2013 Сообщения 92 Репутация 0 Спасибо 0 Монет 0 3 Мар 2024 #5 Паскаль