1. Информатика
  2. Описать процедуру sumdigit(n,s),

Описать процедуру sumdigit(n,s), находящую сумму цифр s целого числа n (n — входной, s — выходной параметр). используя эту процедуру, найти суммы цифр пяти данных чисел.

ksusha2001zxtop ksusha2001zxtop    2   14.06.2019 12:20    18

Ответы
137rdh 137rdh  12.07.2020 06:19
 procedure  SumDigit(N:byte; var S:byte);
begin
S:=N mod 10+N div 10;
end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kolyapauk2016p08ax4 kolyapauk2016p08ax4  09.09.2019 18:00
Канат, длина которого измеряется в удавах, слониках, мартышках и попугаях(вводится с клавиатуры), разрезали пополам. найдите длину половины каната в удавах, слониках, мартышках и попугаях,...
Lizka22855 Lizka22855  09.09.2019 18:00
Файл размером 144 мбайт передаётся через некоторое соединение за 3 минуты. определи размер файла (в мбайт), который можно передать через это же соединение за 420 секунд....
serega5152 serega5152  09.06.2020 17:05
1. Каким будет содержание пары регистров с данными 0001 0000 0000 1111 после инкрементирования? 2. Каким будет содержимое регистра с данными 0100 1011 после декрементирования? 3. Как...
samolutchenckova samolutchenckova  09.06.2020 17:16
решить в питоне Положительное число дается в диапазоне 100–999. Создайте программу, которая производит описание словаря в соответствии с введенным номером: 256 - «двести пятьдесят...
modernteenager1 modernteenager1  09.06.2020 17:17
Задано дані у вигляді (маса; об єм) n предметiв, які виготовлені з різніх матеріалів. Скласти програму, яка визначає максимальну щільність матеріалу. Підказка: щільність = маса / об...
zuldzbeysengaz zuldzbeysengaz  09.06.2020 17:22
Написать программу. Вычислить сумму наибольших элементов каждого столбца матрицы A(I*J), записанный в текстовый файл. Сформировать из них вектор С, и дописать его в файл. C++ в Visual...
Kate27love Kate27love  09.06.2020 17:24
Решить в питонеЧисла A и B (A...
birgowww birgowww  09.06.2020 17:41
Паскаль : Создать файл - сводная экзаменационнная ведомость. Каждая строка ведомости состоит из фамилии студента и 3-х оценок. В новый файл переписать фамилии студентов, учащихся на...
Vitalikprofi Vitalikprofi  10.06.2020 17:43
отметьте верные утверждения. правильно ответов несколько. а.шаг алгоритма понятно исполнителю. б.алгоритм может быть бесконечно длинным. с.результат достижим за конечное число шагов....
AnyaFashion AnyaFashion  10.06.2020 17:48
вставь пропущенное слово. -это несколько элементов с общими именем и нумерацией....

Популярные вопросы