Информатика | 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. Найдите все ошибки в этой программе ( их может быть одна или несколько).
Нужно написать программу для нахождения суммы цифр любого трехзначного числа, вводимого с клавиатуры во время работы программы)) как это сделать с помощью mod или div без цикла?
Нужно написать программу для нахождения суммы цифр любого трехзначного числа, вводимого с клавиатуры во время работы программы)) как это сделать с помощью mod или div без цикла?
Объяснить, что означает каждая строчка : 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.
Написать программу при выполнение которой с клавиатуры вводятся натуральное число n, не привосходящее 1000 и выводится произведение цифр этого числа?
Написать программу при выполнение которой с клавиатуры вводятся натуральное число n, не привосходящее 1000 и выводится произведение цифр этого числа.
Срочно нужно!
Какое число было введено в данной программе, если результатом исполнения является число 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.
Написать программу которая находит произведение n первых натуральных чисел ?
Написать программу которая находит произведение n первых натуральных чисел .
Число n вводится с клавиатуры.
Выполнить программу для n = 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.
Написать программу при которой с клавиатуры вводится натуральное число n не при восходящее 1000 и выводится произведение цифр этого числа?
Написать программу при которой с клавиатуры вводится натуральное число n не при восходящее 1000 и выводится произведение цифр этого числа.
Написать программу которая вводит с клавиатуры два числа с помощью цикла while выводить на экран число a в раз?
Написать программу которая вводит с клавиатуры два числа с помощью цикла while выводить на экран число a в раз.
Написать программу, которая считывает число с экрана и выводит сумму цифр этого числа?
Написать программу, которая считывает число с экрана и выводит сумму цифр этого числа.
Паскаль.
Написать программу которая считает количество цифр в числе и их сумму?
Написать программу которая считает количество цифр в числе и их сумму.
Паскаль.
Число вводится с клавиатуры.
Вопрос Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 10 - 11 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
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 и т.
Д. .