
Вопрос задан 30.10.2023 в 11:49.
Предмет Информатика.
Спрашивает Вольская Полина.
Ребят, помогите! написать программу:Является ли сумма цифр заданного 7-значного числа,
стоящих в разрядах десятков тысяч, сотен и единиц (1 234 567) числом четным или кратным 7?

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

Отвечает Бирюкова Алеся.
PascalABC
var
i,k,b:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do
read(a[i]);
b:=a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7];
if (b mod 2 = 0) or (b mod 7 = 0) then
writeln('Это число четное либо кратно 7')
else writeln('Это число не четное и не кратно 7);
end.
var
i,k,b:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do
read(a[i]);
b:=a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7];
if (b mod 2 = 0) or (b mod 7 = 0) then
writeln('Это число четное либо кратно 7')
else writeln('Это число не четное и не кратно 7);
end.



Отвечает Михай Костя.
var
s, x, n: integer;
begin
writeln('Введите число: ');
read(n);
x := 1000000;
repeat
s := s + (n div x) mod 10;
x := trunc(x / 10);
until x < 1;
writeln('Сумма = ', s);
if s <> 0 then
begin
if s mod 2 = 0 then writeln('Сумма - число четное')
else writeln('Сумма - число нечетное');
if s mod 7 = 0 then writeln('Сумма - число кратное 7')
else writeln('Сумма - число не кратное 7');
end;
end.
s, x, n: integer;
begin
writeln('Введите число: ');
read(n);
x := 1000000;
repeat
s := s + (n div x) mod 10;
x := trunc(x / 10);
until x < 1;
writeln('Сумма = ', s);
if s <> 0 then
begin
if s mod 2 = 0 then writeln('Сумма - число четное')
else writeln('Сумма - число нечетное');
if s mod 7 = 0 then writeln('Сумма - число кратное 7')
else writeln('Сумма - число не кратное 7');
end;
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для решения этой задачи вам нужно написать программу, которая определяет, является ли сумма цифр числа, состоящего из разрядов десятков тысяч, сотен и единиц, четным числом или кратным 7.
Давайте разработаем алгоритм на псевдокоде для решения этой задачи:
1. Получить 7-значное число от пользователя.
2. Разбить это число на отдельные цифры (десятки тысяч, тысячи, сотни, десятки, единицы).
3. Просуммировать цифры, стоящие на разрядах десятков тысяч, сотен и единиц.
4. Проверить, является ли сумма четной и кратной 7.
Пример кода на Python:
```python
def sum_of_digits(number):
# Разбить число на цифры
digits = [int(d) for d in str(number)]
# Проверка на то, что число состоит из 7 цифр
if len(digits) != 7:
return "Введите 7-значное число"
# Сумма цифр десятков тысяч, сотен и единиц
sum_of_units = sum(digits[-3:]) # Сумма последних трех цифр
# Проверка на четность и кратность 7
if sum_of_units % 2 == 0 and sum_of_units % 7 == 0:
return "Сумма цифр числа, стоящих в разрядах десятков тысяч, сотен и единиц, является четной и кратной 7."
else:
return "Сумма цифр числа, стоящих в разрядах десятков тысяч, сотен и единиц, не является четной и кратной 7."
# Получить ввод от пользователя
user_input = input("Введите 7-значное число: ")
# Проверка на то, что введенная строка состоит из цифр и является 7-значным числом
if user_input.isdigit() and len(user_input) == 7:
number = int(user_input)
result = sum_of_digits(number)
print(result)
else:
print("Пожалуйста, введите корректное 7-значное число.")
```
Этот код предлагает функцию `sum_of_digits`, которая принимает число, суммирует цифры, стоящие в разрядах десятков тысяч, сотен и единиц, и проверяет на четность и кратность 7. Далее происходит запрос ввода 7-значного числа от пользователя, и программа проверяет ввод на корректность.
Вы можете выполнить этот код в среде программирования Python, чтобы убедиться в его работоспособности.
0
0


Похожие вопросы

Информатика 10
Топ вопросов за вчера в категории Информатика

Информатика 562

Информатика 404

Информатика 31

Информатика 76

Информатика 16

Информатика 41

Информатика 31
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili