Написать программу вычисления суммы всех 3-х значных чисел, у которых сумма цифр кратно числу а.нахождения суммы цифр 3х значного числа написать подпрограмму. ( с функцией) i = от 100 до 999 i=326 x = i div 100 y=i div 10 mod 10 z= i mod 10 s= x+y+z 2)определить значение переменной после выполнения фрагмента алгоритма: s: =24; m: =3456; while s> 10 do begin m: =m mod 10; s: =s-m end; s: =s+m; write(m); мне нужно именно решение, а не тупо !

254

310

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

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

Reginka24082007

Информатика

4,7(51 оценок)

Function t1(b: integer): integer; begin t1: =b mod 10 +(b div 10)mod 10+((b div 10)div 10)mod 10; end; var i,a,s: integer; begin s: =0; for i: =100 to 999 do if t1(i) mod 3 =0 then s: =s+t1(i); writeln(s); end.

Камелек

Информатика

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

ответ:

нет

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

Популярно: Информатика

Есть вопросы?

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

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

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

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

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