Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
1) Тот или то, что выполняет алгоритм. 2) Основные свойства алгоритма-Дискретность (последовательность, прерывистость). Детерменированность (При одинаковом наборе данных неважно где и когда будет выполнен алгоритм). Результативность (при выполнение действий состовляющих правельный алгоритм будет получен определенный результат). Массовость (один и тот же алгоритм подходит для решения однотипных задач с разным набором начальных данных). еще Коректность и конечность. 3)-дворник -водитель -бухгалтер -коммисия -ученик -учитель
5
Объяснение:
31=2^4+2^3+2^2+2^1+2^0
10^4+10^3+10^2+10^1+10^0=11111