Маминбандит138

08.04.2020 23:05

Информатика

Есть ответ 👍

Напишите программу на Паскале с операторами mod и div. Дано трехзначное число. Определить кратна ли сумма его цифр числу а.

183

437

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

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

yulyapikulyk

Информатика

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

program amountnumbers;

var

amount, number, a: integer;

begin

write('Введите трехзначное число: ');

read(number);

writeln('Введите число А:');

read(a);

while number > 0 do

begin

amount := amount + number mod 10;

number := number div 10;

end;

if (amount mod a = 0) then

writeln('Да')

else

writeln('Нет');

end.

Объяснение:

program amountnumbers; // Название программы

var

amount, number, a: integer; // Целочисленные переменные:

amount - сумма цифр трехзначного числа;number - трехзначное число, вводимое с клавиатуры;a - число для проверки на кратность.

begin // Начало программы

write('Введите трехзначное число: '); // Вывод сообщения в консоль

read(number); // Считываем трехзначное число с клавиатуры

writeln('Введите число А:'); // Вывод сообщения в консоль

read(a); // Считываем число А с клавиатуры

while number > 0 do // Пока значение переменной number > 0

begin // Начало цикла

amount := amount + number mod 10; // Сумма цифр = сумма цифр + последняя цифра числа

number := number div 10; // Отделяем последнюю цифру от числа

end; // Конец цикла

if (amount mod a = 0) then // Если значение переменной amount делится на значение переменной A без остатка, тогда

writeln('Да') // Вывод сообщения в консоль

else // Иначе

writeln('Нет'); // Вывод сообщения в консоль

end. // Конец программы

karpovkonstanti

Информатика

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

Шелчком на кнопке пуск открывается главное меню : ))

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

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

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

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

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

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

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

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

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

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