Bomberidze

24.08.2022 22:48

Информатика

Есть ответ 👍

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна 0), проверить делится ли оно на каждую из своих цифр.

213

272

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

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

Вигуська

Информатика

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

ЯП: C++

#include <iostream>

int main() {

int number;

std::cout << "Введите трехзначное число: "<< std::endl;

std::cin >> number;

int first_part = number / 100;

int second_part = (number / 10) % 10;

int third_part = number % 10;

if ((first_part) && (second_part) && (third_part))

{

std::cout << "Вы ввели число: " << number << std::endl;

if ((!(number % first_part)) && (!(number % second_part)) && (!(number % third_part)))

std::cout << "Число делится нацело!" << std::endl;

else

std::cout << "Число не делится нацело!" << std::endl;

}

else

{

std::cout<< "Число НЕ должно содержать нулей!";

}

return 0;

}

Объяснение:

ykukharsp0dngs

Информатика

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

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !. split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

GOLUBOVICH0400

Информатика

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

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var k: =readinteger('k='); var a: =readarrinteger('> ',k); var sp: =a.where(x-> x> 0).sum; var po: =a.where(x-> x< 0).aggregate(biginteger(,q)-> p*q); var b: =a.select(x-> x> 0? po: (x< 0? sp: ; b.println end. пример k= 10 > 9 20 -11 5 0 16 8 11 2 -17 187 187 71 187 0 187 187 187 187 71

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

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

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

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

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

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

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

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

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

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