сервис вопросов и ответовДано целое число N(>0). Используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.
5-9 класс|
|
снежа96
21 нояб. 2014 г., 18:27:50 (9 лет назад)
ПономарьЬьЬьЬ
21 нояб. 2014 г., 20:12:56 (9 лет назад)
var n,count,sum:integer;
begin
read(n);
count:=0;
sum:=0;
while (n<>0) do
inc(count);
sum:=sum+(n mod 10);
n:=n div 10;
end
end.
Irannn
21 нояб. 2014 г., 22:48:09 (9 лет назад)
n=get()
k=0
s=0
while n>=1 do
s=s+n % 10
k=k+1
n=(n-n%10)/10
end
print(s,k)
Ответить
Другие вопросы из категории
в ячейке d6 электронной таблицы записана формула. Эту формулу скопировали в ячейки C7 и B8. В соответствии с формулой, полученной в ячейке C7, значение в
этой ячейке равно разности значений в ячейках D21 и С22. В соответствии с формулой, полученной в ячейке B8, значение в этой ячейке равно разности значений в ячейках D22 и B22. Какая формула могла быть написана в ячейке D6
Читайте также
Программа выполняется в Паскале! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, им
еются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет — вывести False. Помогите плииз.
Ребята кто разбирается в Pascal ABC помогите пожалуйста Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0).
Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
1.Дано целое число N.Написать программу ,увеличивающую число в 3 раза ,если оно больше нуля
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
плз помогите.. составить программу на языке авс паскаль 1)напишите программу, которая считывает два целых числа a и b
и выводит наибольше значение из них. Числа - целые от 1 до 1000.
при решении задачи можно пользоваться только целочисленными арифметическими операциями +,-,*,//,%,=. нельзя пользоваться нелинейными конструкциями:ветвления, циклами, функциями вычисления модуля, извлечения квадратного корня., и условными функциями!!!!!!!
2) Дано целое число N. Выведите следующее за ним четное число. При решении задачи нельзя использовать условную инструкцию if и циклы!!
хотя бы формулу:) заранее спасибо)
Вы находитесь на странице вопроса "Дано целое число N(>0). Используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.