М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
savkinaveronika
savkinaveronika
12.05.2020 22:00 •  Информатика

Заполните таблицу по образцу предмет свойство канал орган. 1 будильник звон слух ухо 2 3 4 5

👇
Ответ:
StanleyPines618
StanleyPines618
12.05.2020
Такой вопрос уже был. мой пример решения

Заполните таблицу по образцу предмет свойство канал орган. 1 будильник звон слух ухо 2 3 4 5
4,4(4 оценок)
Открыть все ответы
Ответ:
karakatitsa1
karakatitsa1
12.05.2020

def print_digit_sum(a):

 print(f'Сумма цифр числа {a} равна {sum([int(i) for i in str(a)])}')

while True:

 try:

   print_digit_sum(int(input('Введите целое число:')))

   break

 except ValueError:

   print('Неверный формат входных данных')

sum([int(i) for i in str(a)]) - здесь мы выполняем следующие действия:

1. Преобразуем число в строку с str(a)

2. Пробегаемся по символам строки от первого до последнего и создаём массив, преобразуя каждый строковый символ в число - [int(i) for i in str(a)]

3. Ну и наконец с оператора sum вычисляем сумму всех элементов получившегося массива

4,5(4 оценок)
Ответ:
arykovevgeny
arykovevgeny
12.05.2020
Uses Crt;
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
    k,j,su3:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 3; te:=te div 3;
    until te<3;
    inc(k); m[k]:=te mod 3;
    for j:=k downto 1 do
        begin su3:=su3+m[j]; write(m[j]:3) end;
    write(' su3=',su3);
    sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
    k,j,su10:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 10; te:=te div 10;
    until te<10;
    inc(k); m[k]:=te mod 10;
    for j:=k downto 1 do
        begin su10:=su10+m[j]; write(m[j]:3); end;
    writeln(' su10=',su10);
    sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
    a:=1; b:=1000;
    writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
    for i:=a to b do
    begin
        TroichSS(i,sum3); DesiatSS(i,sum10);
        if sum3=sum10 then
            begin writeln('Э в р и к а!'); delay(5000); end;
    end;
    writeln('К о н е ц.');
End.

ответ: 39
4,5(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ