Помогите составить программу, вычисляющую сумму чисел четырехзначного числа. СРОЧНО!!! Помогите!!!
5-9 класс
|
program gt;
var n,s:integer;
begin
readln(n);
s:=n div 1000+(n div 100)mod 10+(n mod 100)div 10+n mod 10;
writeln(s);
end.
Другие вопросы из категории
а) есть ли среди цифр заданного целого трехзначного числа одинаковые
пример входных данных: пример выходных данных:
123 нет
121 да
222 да
Проводятся две лотереи: «1 из 32» и «1 из 64». Сообщение о результатах, какой из лотерей несет больше информации?
Читайте также
( сейчас прошли циклические алгоритмы, нужна и блок-схема)
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Срочно!!!
С клавиатуры вводится четырехзначное число. Проверить, делится ли сумма его цифр на 3 и на 9.
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.