составить программу нахождения суммы чисел четырехзначного числа
10-11 класс
|
Viktorinka2004
06 окт. 2014 г., 7:11:26 (9 лет назад)
Simon12rus
06 окт. 2014 г., 7:46:55 (9 лет назад)
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Ответить
Другие вопросы из категории
инфотрмационный объем статьи 35Кбайт Сколько страниц займет статья если на одной странице электронного документа помещается 20 строк по 20 символов а
каждый символ представлен кодировке Unicode (каждый символ занимает 16 бит памяти )
Читайте также
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
Дана непустая последовательность натуральных чисел, за которой следует 0. Составьте программу нахождения суммы чисел этой
последовательности.Запустите программу на выполнение...(ПО ПАСКАЛЮ..)
1. Составить программу нахождения суммы чисел 5, 10, 15, 20, …50.
2. Найти значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40.
Вы находитесь на странице вопроса "составить программу нахождения суммы чисел четырехзначного числа", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.