Найдите сумму чисел четырёхзначного числа.. число 5734..оформить примерно так
5-9 класс
|
Prodram;
uses crt; и тд.
помогите пожалуйста
Если имеется ввиду сумма цифр
program ads;
uses CRT;
var S,a,b,c,d:integer;
begin
read (S); // Ввод любого 4-ёхзначного числа (5734)
a:=S mod 10;
b:=S div 1000;
c:=(S mod 100) div 10;
d:=(S mod 1000) div 100;
write (a+b+c+d);
end.
Другие вопросы из категории
pozhaluista srochno!!!
его номер с использованием минимального возможного количества бит, одинакового для каждого участника. Каков информационный объём сообщения, записанного устройством, если данную промежуточную отметку миновали только 64 из 87 вышедших на старт участников?
Варианты ответов:
1). 78 байт
2). 78 бит
3). 56 бит
4). 56 байт
Читайте также
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
k руб.Какую сдачу получит покупатель если у него в руб. 4)Определить ,является ли введенное шестизначное число счастливым,т.е. сумма первых трех цифр числа равна сумме последних трех цифр. 5)Определить ,является число А делителем числа В.
2) Вывести нечётные числа из диапозона [a,b],где a и b могут быть как чётными,так и нечётными,а также отрицательными,но обязательно a<b
3) В одной программе посчитать две суммы из [a,b] (те же условия,что и в задании 2)
S-сумма всех нечётных чисел
Sym-сумма чисел,кратных 3
Cами числа выводить не нужно
4)Найти a в степени n,где a и n целые числа, но могут быть отрицательными
(задачи можно делать либо через For,либо через While)
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.