Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа?

Информатика | 10 - 11 классы

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа.

Программист торопился и написал программу неправильно : var N : longint ; sum, d : integer ; begin readln(n) ; sum : = 0 ; while N > ; 0 do begin d : = N mod 10 ; N : = N div 10 ; sum : = sum + 1 ; end ; writeln(sum) ; end.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 256.

2. Приведите пример такого трехзначного числа, при вводе которого программа выдаёт правильный результат.

3. Найдите все ошибки в этой программе ( их может быть одна или несколько).

Ответить на вопрос
Ответы (1)
Photograff 18 дек. 2020 г., 19:24:51

1) При вводе числа 256 программа выведет 3, т.

К. ввели n = 256

n> ; 0 ?

- да, значит дальше идёт блок из цикла, и будет он повторятся до тех пор пока n будет > ; 0.

D : = 256 mod 10

d : = 6, т.

К. mod берёт остаток от деления.

N : = 256 div 10

n : = 25, т.

К. div делит нацело и остаток не берёт.

Sum : = sum + 1 ;

sum : = 1 ;

______________________

цикл первый раз закончился и опять проверяется условие n> ; 0, если да, то опять запускает цикл.

N : = 25> ; 0

d : = 25 mod 10

d : = 5

n : = 25 div 10

n : = 2

sum : = 1 + 1

sum : = 2 ;

______________________

опять закончился цикл и проверяется условие n> ; 0, n : = 2> ; 0

d : = 2 mod 10 ;

d : = 2 ;

n : = 2 div 10

n : = 0

sum : = 2 + 1 ;

sum : = 3 ;

____________________

заканчивается цикл и проверяется условие n> ; 0?

N : = 0 > ; 0 - нет.

Цикл заканчивается и выводится значение sum.

Ответ : 3.

2) 120, 210, 111 и т.

Д. .

Anna202025 9 авг. 2020 г., 08:32:25 | 5 - 9 классы

Нужно написать программу для нахождения суммы цифр любого трехзначного числа, вводимого с клавиатуры во время работы программы)) как это сделать с помощью mod или div без цикла?

Нужно написать программу для нахождения суммы цифр любого трехзначного числа, вводимого с клавиатуры во время работы программы)) как это сделать с помощью mod или div без цикла?

Vfrc01112004 24 июл. 2020 г., 20:16:09 | 10 - 11 классы

Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1?

Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1.

5] of Real ; begin WriteLn('Введите число m[', i, '] = ') ; readln(m[i]) ; end ; Sum : = 0 ; For i : = 1 to 5 do Sum : = sum + m[i] ; Writeln('сумма = ', sum) ; readln ; end.

89678692155 5 апр. 2020 г., 04:10:50 | 10 - 11 классы

Написать программу при выполнение которой с клавиатуры вводятся натуральное число n, не привосходящее 1000 и выводится произведение цифр этого числа?

Написать программу при выполнение которой с клавиатуры вводятся натуральное число n, не привосходящее 1000 и выводится произведение цифр этого числа.

Срочно нужно!

Yanis06 12 июн. 2020 г., 20:35:14 | 10 - 11 классы

Какое число было введено в данной программе, если результатом исполнения является число 100?

Какое число было введено в данной программе, если результатом исполнения является число 100?

Var a : array [1.

8] of integer ; i, sum : integer ; begin readln (a [1]) ; sum : = 0 ; for i : = 1 to 8 do a [i] : = a [i - 1] + 3 ; for i : = 8 downto 1 do sum : = sum + a [i] ; writeln (sum) end.

Mery1305 7 окт. 2020 г., 16:15:51 | 5 - 9 классы

Написать программу которая находит произведение n первых натуральных чисел ?

Написать программу которая находит произведение n первых натуральных чисел .

Число n вводится с клавиатуры.

Выполнить программу для n = 9 записать результат.

Bobskill 9 июл. 2020 г., 21:30:30 | 5 - 9 классы

Всем привет?

Всем привет.

Вообщем, вот задача и к ней необходимо написать программу(Pascal).

Код программы будет ниже.

Нужно проверить его на ошибки и дать коментарии к коду.

Если код неправильный прошу подкорректировать.

Буду очень признателен.

Заранее спасибо.

Задача : Дана последовательность из n действительных чисел (n < ; = 100).

Написать программу для подсчета суммы этих чисел.

Код программы : var massiv : array [1.

100] of real ; sum : real ; n, i : integer ; begin clrscr ; writeln ('Введите количество чисел') ; readln (n) ; for i : = 1 to n do begin writeln ('Введите ', i, ' - ое число') ; readln (massiv [i]) ; end ; sum : = 0 ; for i : = 1 to n do sum : = sum + massiv [i] ; writeln ('Сумма последовательности равна ', sum : 0 : 4) ; readln ; end.

Wewqeq 19 дек. 2020 г., 18:12:56 | 5 - 9 классы

Написать программу при которой с клавиатуры вводится натуральное число n не при восходящее 1000 и выводится произведение цифр этого числа?

Написать программу при которой с клавиатуры вводится натуральное число n не при восходящее 1000 и выводится произведение цифр этого числа.

Licey4 21 янв. 2020 г., 01:21:28 | 5 - 9 классы

Написать программу которая вводит с клавиатуры два числа с помощью цикла while выводить на экран число a в раз?

Написать программу которая вводит с клавиатуры два числа с помощью цикла while выводить на экран число a в раз.

Safolur74 7 июн. 2020 г., 11:44:24 | 5 - 9 классы

Написать программу, которая считывает число с экрана и выводит сумму цифр этого числа?

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

Паскаль.

Kenzzo 24 нояб. 2020 г., 17:16:23 | 5 - 9 классы

Написать программу которая считает количество цифр в числе и их сумму?

Написать программу которая считает количество цифр в числе и их сумму.

Паскаль.

Число вводится с клавиатуры.

Вопрос Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 10 - 11 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.