5. Дополнительная клавиатура (важно заметить, что при нажатии клавиши Num Lock загорается индикатор, и клавишами с цифрами, а также знаками арифметических операций можно пользоваться как на калькуляторе. при выключенном индикаторе работает режим управления курсором.)
Var A,S,n:integer; Begin WriteLn('Введите целое число'); ReadLn(A); S:=0; n:=0; While A<>0 do Begin S:=S+A mod 10; n:=n+1; A:= A div 10 End; WriteLn('Sr = ',S/n); End.
Var A,S:integer; Begin WriteLn('Введите целое число'); ReadLn(A); S:=0; While A<>0 do Begin if (A mod 10) mod 3 = 0 then S:=S+A mod 10; A:=A div 10 End; WriteLn('S = ',S); End.
Var A,m:integer; Begin WriteLn('Введите целое число'); ReadLn(A); m:=9; While A<>0 do Begin if A mod 10 < m then m:= A mod 10; A:=A div 10 End; WriteLn('Min = ',m); End.
5
Объяснение:
1. Функциональные клавиши (с F1 по F12).
2. Алфавитно-цифровые (буквы и цифры (цифры, которые сверху))
3. Клавиши управления курсором (Page Up, Page Down, Home, End, Insert)
4. Специальные клавиши (Backspase, Caps Lock, Shift, Alt, Nut Look, Enter)
5. Дополнительная клавиатура (важно заметить, что при нажатии клавиши Num Lock загорается индикатор, и клавишами с цифрами, а также знаками арифметических операций можно пользоваться как на калькуляторе. при выключенном индикаторе работает режим управления курсором.)