Программа на Python как я понял
s = input() - вводишь любое n-значное число (не однозначное, ибо смысла нет)
b = list(s) - преобразует выше описаное число в список.
Например:
s=input(123)
b=list(s)
// ['1', '2', '3']
f =min(b) - ищет из этого списка Минимальное значение и сохраняет в переменную f
print(f) - выводит минимальное значение
1. Лазер, вспыхивая в нужный момент, оставляет углубление (потемнение) на дорожке лазерного диска.
2. Светя на дорожку с меньшей интенсивностью, она получает отражённый луч, так вот, если он яркий - ничего не записано, иначе - если снижение яркости отражённого луча долгое, то записано тире (единица), если короткое - то точка (ноль).
3. 0 - точка, 1 - тире (условно, но так они и выглядят, только ооооочень маленькие)
4. Лазер большой интенсивности прожигает диск целиком, делая его весь одной отражающей способности, чтобы новозаписанные данные отличались от него по цвету.
5. От его площади, от количества дороже и от их ширины.
6. Это устройство прямого доступа, т.к. таблица разметки диска записана на нулевой дорожке, и чтобы получить какую-то информацию с него, достаточно обратиться к ней, а не проматывать его весь.
Строчные и прописные латинские буквы:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
пробел
подчеркивание: _
арабские цифры:
0 1 2 3 4 5 6 7 8 9
знаки операций:
+ - * / = <> < > <= >= := @
ограничители:
. , ' ( ) [ ] (. .) { } (* *) .. : ;
спецификаторы:
^ # $
служебные (зарезервированные) слова:
ABSOLUTE EXPORTS LIBRARY SET
ASSEMBLER EXTERNAL MOD SHL
AND FAR NAME SHR
ARRAY FILE NIL STRING
ASM FOR NEAR THEN
ASSEMBLER FORWARD NOT TO
BEGIN FUNCTION OBJECT TYPE
CASE GOTO OF UNIT
CONST IF OR UNTIL
CONSTRUCTOR IMPLEMENTATION PACKED USES
DESTRUCTOR IN PRIVATE VAR
DIV INDEX PROCEDURE VIRTUAL
DO INHERITED PROGRAM WHILE
DOWNTO INLINE PUBLIC WITH
ELSE INTERFACE RECORD XOR
END INTERRUPT REPEAT
EXPORT LABEL RESIDENT
Подробнее - на Znanija.com -
znanija.com/task/17610098#readmore
Var n, sum, count: integer;
begin
read(n);
sum := 0;
count := 0;
while n > 0 do
begin
sum := sum + n mod 10;
n := n div 10;
count := count + 1;
end;
writeln(sum);
writeln(count);
end.