var N,N1,s:integer;
BEGIN
writeln('Введите целое число:');
readln(N);
N1:=N;
while N<>0 do begin
s:=s+N mod 10;
N:=N div 10;
end;
writeln('Сумма цифр числа ',N1,' равна ',s,'.');
end.
Это значек обозначающий программу
Объяснение:
^ не стоит у меня, но действие выполняет, у себя его ставьте!
//Вы используете крайне нерациональный способ решения, к тому же просчитали не все возможные варианты исхода событый.
//Перебирать все возможные варианты не вижу смысла, ни один программист не будет вручную все считать и перебирать, поэтому привожу свое решение:
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int max, min, num, mid;
cout « "Введите 1 число: "; cin » max;
cout « "Введите 2 число: "; cin » min;
if (min > max)
{
num = max;
max = min;
min = num;
}
cout « "Введите 3 число: "; cin » num;
if (num > max)
mid = max;
else if (num < min)
mid = min;
else
mid = num;
cout « endl « "Среднее число: " « mid « endl;
return 0;
}
-•- (к)
--- (о)
-- (м)
•--• (п)
•- (а)
••• (с)
КОМПАС