Найти все числа,меньшие заданного числа n, сумма чисел которых равна 10. ,, программа паскаль.

166

366

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

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

Anolu

Информатика

4,8(87 оценок)

Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

function суммацифр(число: integer): integer;

begin

result : = 0;

while число > 0 do

begin

result += число mod 10;

число : = число div 10

end

end;

begin

for var очередноечисло : = 1 to readinteger('n=') do

if суммацифр(очередноечисло) = 10 then print(очередноечисло)

end.

n= 300 19 28 37 46 55 64 73 82 91 109 118 127 136 145 154 163 172 181 190 208 217 226 235 244 253 262 271 280

Сангали

Информатика

4,5(45 оценок)

var x: integer;

begin

if x< 0 then x: =x*2 else

x: =x-2;

end.

var i: integer; x: real; beginx: =75000; for i: =1 to 10 dox: =x*1.11; write(x)end.

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

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

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

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

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

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