Перевести с pascal в python или c++ var b,i: longint; c: integer; function sm(n: longint): longint; begin if n< 10 then sm: =n else sm: =n+sm(inttostr(n).tochararray.select((c: char)-> ord(c)-48).sum); end; begin readln(b); for c: =1 to length(inttostr(b)) do i: =i+c9; i: =range(b-i,b).select(i-> ord(sm(i)=b)i).max; if i> 0 then writeln(i) else writeln('-1'); end.

114

413

Посмотреть ответы 1

Ответы на вопрос:

bacongurl1

Информатика

4,6(31 оценок)

1) var x: integer; begin readln(x); writeln(x+1); end. 2) var n,i,f: integer; begin readln(n); f: =1; for i: =1 to n do f: =f*i; writeln(f); end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.