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

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

👇
Ответ:
27081984e
27081984e
22.01.2020

===== 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.


Программисты-информатики, нужна из некого числа вычли сумму его же цифр, после чего из результата сн
4,4(80 оценок)
Открыть все ответы
Ответ:
misi2
misi2
22.01.2020

1 - True/False

2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.

3 - Конъюнкция

4 - X И Y И Z

5 - OR

6 - 1. Инверсия;

2. Конъюнкция;

3. Дизъюнкция;

4. Импликация;

5. Эквивалентность.

7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.

8 - Импликация

9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны

10 -  Конъюнкция

11 - ?

12 - ?

Объяснение:

4,7(49 оценок)
Ответ:
Coolplay
Coolplay
22.01.2020

#include <stdlib.h>

#include <time.h>

#include <iostream>

using namespace std;

#define N 16

void main()

{

   int randomNumbers[N];

   srand(time(NULL));

   for (int i = 0;i < N; i++)

   {

       randomNumbers[i] = rand() % 40 - 20;

       cout << "randomNumber[" << i << "] = " << randomNumbers[i] << endl;

   }

   cout << endl;

   int counter = 0;

   for (int i = 0; i < N; i++)

   {

       if (randomNumbers[i] < 0)

       {

           counter++;

       }

   }

   cout << "counter = " << counter << endl;

}

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