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

Напишите программу, которая считает сумму цифр введённого числа. Входные данные
Входная строка содержит одно натуральное число.

Выходные данные
Программа должна вывести сумму цифр введённого числа.

Показать ответ
Ответ:
beliaeva201
beliaeva201
02.12.2022 21:29

Компьютерные технологии всё глубже проникают во все сферы человеческой деятельности. Информатизация и компьютеризация требуют от людей новых навыков, новых знаний и нового мышления, призванных обеспечить адаптацию к условиям и реалиям компьютеризированного общества и обеспечить ему достойное место в этом обществе. Поэтому нельзя не согласиться с У. Мартином в том, что информатизация оказывает влияние на образ и качество жизни всех членов общества как на индивидуальном, так и на организационном уровне, на рабочем месте и в быту. Хорошо это или плохо, но она, пишет автор, представляет собой силу, которая не просто трансформирует жизнь целых сообществ, но перестройке самого «контекста отношений между людьми».

Объяснение:

0,0(0 оценок)
Ответ:
StasSav06
StasSav06
10.05.2020 17:45
Program Task;
Const N = 5;
Var a: Array [1..N] of LongInt;
    i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
    num, min, i: Integer;
Begin
    num := number;
While num <> 0 Do
Begin
    num := num Div 10;
    i := i + 1;
End;
    SetLength(digits, i);
    num := number;
For i := 0 To Length(digits) - 1 Do
Begin
    digits[i] := num Mod 10;
    num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
    If digits[i] < digits[min] Then
    min := i;    Result := digits[min];
End;
Begin
    WriteLn('Введите ', N, ' целых чисел через пробел');
    For i := 1 To N Do
        Read(a[i]);
    For i := 1 To N Do
        Write(MinDigit(a[i]), ' ');
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота