Написать программу которая найдет сумму цифр введенного с клавиатуры трехзначного натурального числа N
5-9 класс
|
program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.
program Sum;
var
a,s: integer;
begin
WriteLn('Введите трехзначное число а');
ReadLn(a);
While (a div 10>0)
begin
s:=s+ (a mod 10 );
a:=a div 10;
end
s:=s+a;
WriteLn('Сумма чисел равна',s);
end.
Другие вопросы из категории
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16...
числа 2 числа 30. Алгоритм должен включать только команды 1 и 2, и состоять не более чем из 4 команд.
Читайте также
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
(ниже представлен рекомендуемый вид экрана во время работы программы)
Вычисление частичной суммы рада 1,3,5,7.
Введите количество суммируемых членов ряда: 15
Сумма первых 15 членов ряда равна 330.