julietsimms

11.11.2020 12:45

Информатика

Есть ответ 👍

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

112

421

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

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

foorsik

Информатика

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

===== PascalABC.NET =====

function СуммаЦифр(Число: integer): integer;

begin

Result := 0;

while Число > 0 do

begin

Result += Число mod 10;

Число := Число div 10

end

end;

procedure ЧислоДействий(Число: integer; var Действий: integer);

begin

Число := Abs(Число); // вдруг кто-то задал отрицательное?

Действий := 0;

while Число > 0 do

begin

Число -= СуммаЦифр(Число);

Inc(Действий)

end;

if Число <> 0 then // невозможно получить 0

Действий := -1

end;

begin

var Число := ReadInteger('Введите число:');

var СделаноДействий := 0;

ЧислоДействий(Число, СделаноДействий);

if СделаноДействий >= 0 then

Print('Сделано действий:', СделаноДействий)

else

Print('Невозможно получить ноль')

end.

dogtor20

Информатика

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

#coding: utf-8 # python 3.x ''' вводятся четыре числа: xa, ya: координаты ферзя xb, yb: координаты другой фигуры координаты - целые числа в интервале от 1 до 8. вывод - булево значение: сможет ли ферзь побить фигуру за 1 ход. ''' def hits(xa, ya, xb, yb) -> bool: ''' проверка аргументов. ''' args = (xa, ya, xb, yb) if any([not 1 < = z < = 8 for z in args]): raise valueerror("неверные координаты! ") ''' на одной прямой. ''' if xa == xb or ya == yb: return true ''' северо-западная диагональ. ''' x_nw, y_nw = xa, ya while x_nw > 1 and y_nw > 1: x_nw -= 1 y_nw -= 1 if x_nw == xb and y_nw == yb: return true ''' юго-восточная диагональ. ''' x_se, y_se = xa, ya while x_se < 8 and y_se < 8: x_se += 1 y_se += 1 if x_se == xb and y_se == yb: return true ''' юго-западная диагональ. ''' x_sw, y_sw = xa, ya while x_sw > 1 and y_se < 8: x_sw -= 1 y_sw += 1 if x_sw == xb and y_sw == yb: return true ''' северо-восточная диагональ. ''' x_ne, y_ne = xa, ya while x_ne < 8 and y_se > 1: x_ne += 1 y_ne -= 1 if x_ne == xb and y_ne == yb: return true return false # если не бьет inp = [int(x) for x in ()] if hits(*inp): print('yes') else: print('no')

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

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

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

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

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

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

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

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

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

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