Регистрация Спросить otvet5GPT
SashaD02
Есть ответ 👍

Найти все натуральные трехзначные числа, сумма цифр которых кратна заданному натуральному числу B и само число также делится на B. (программа Паскаль)

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

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

Давид1111david
Давид1111david
4,4(47 оценок)
function S(i:integer):integer;
var
  r:integer;
begin
  r:=0;
  while i>0 do begin
    r:=r+i mod 10;
    i:=i div 10;
  end;
  S:=r;
end;
var
  b,i:integer;
  z:boolean;
begin
  write('B=');readln(b);
  z:=true;
  for i:=100 to 999 do
    if (i mod b=0) and (b mod S(i)=0)  then begin
      z:=false;
      write(i,' ');
    end;
  if z then writeln('Нет чисел,удовлетворяющих условию');
end.
GorkiyShokolaD
GorkiyShokolaD
4,6(7 оценок)

ответ:

я спрятался

объяснение:

потому что

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

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

Популярно: Другие предметы

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS