1. Информатика
  2. Напишите на Паскале: C клавиатуры

Напишите на Паскале: C клавиатуры вводится натуральное 3 –е число. Найдите сумму цифр числа.

Входные данные: Введите натуральное число: 371
Выходные данные: Сумма цифр числа: 11

PuvMan PuvMan    1   09.12.2020 05:38    3

Ответы
Лилия2552 Лилия2552  08.01.2021 05:39

Объяснение:

Пойдет?

Добавил 2 вариант решения через цикл while (только я забыл изменить m<>299, вместо m<>0 и можно добавить проверку, на ввод именно 3-е числа)


Напишите на Паскале: C клавиатуры вводится натуральное 3 –е число. Найдите сумму цифр числа. Входные
Напишите на Паскале: C клавиатуры вводится натуральное 3 –е число. Найдите сумму цифр числа. Входные
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Hkolnik32 Hkolnik32  19.03.2022 04:03
4.Напишите алгоритм и блок-схему для следующей задачи: найти S=7А+9В для любых заданных значений А и В....
IGUMANITARII IGUMANITARII  19.03.2022 04:58
Вариант 19 1. Укажите место хранения данных курсов на серверных платформах LMS. 2. Что такое дистанционное обучение? Ваше мнение о нем. 3. Что такое виджеты и для чего они...
huhrova23 huhrova23  22.05.2019 00:40
1)вычислите сумму чисел x и y при x=1e(16),y=57(8).результат представьте в двоичной системе счисления...
вика3844 вика3844  09.06.2020 15:58
Горизонтали и вертикали шахматной доски занумерованы числами от 1 до 8. Вводятся четыре числа a,b,c,d. Определить, одного ли цвета поля (a,b) и(c,d). ответ выдать в виде...
Maxi2007 Maxi2007  09.06.2020 15:57
перевести эту программу из паскаля в кумир Var  x, y: real;begin  writeln( Введите координаты точки );  readln(x, y);  write( Точка с координатами ( , x, , , y, ) );  if...
DarkPear DarkPear  09.06.2020 15:57
Привет, ответьте на вопросы Чем отличаются макросы в Access от макросов в Word и Excel? 2. Как организовать запуск макроса по некоторому событию? 3. В чем сходство и различие...
natasha8952 natasha8952  09.06.2020 15:56
сделать УМОЛЯЮ я полный ноль в екселе...
magnoliya220619 magnoliya220619  09.06.2020 15:53
сделать УМОЛЯЮ я полный ноль в екселе...
Владушкаcat Владушкаcat  27.04.2020 14:35
Каков результат работы программы: Var k, m: integer; Dat: array[1..15] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12;...
pavelakur pavelakur  27.04.2020 14:34
Укажите , где оператор присваивания или имя переменной написаны неверно? А:=5+5; С=28; 1game:=30; a=c+5...

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