Лазерный диск сканирует, жёсткий диск зачитывает
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Ответ:
Берешь готовый движок и впиливаешь его на свою корявую форму. Си Шарп + интернет Эксплорер = ванлав
Объяснение:
//PascalABC.NET 3.0
begin
write(ReadSeqInteger(10).Average)
end.
Ответ:
18
Объяснение:
если посмотресть на условие, то там просят найти число (истина)которое больше 16 и четное(тк не нечетное дает четное)
наименьшее это 18