Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.
B:=3 //374/100 Целых 3 раза
a:=7 //(374+3)/10 Остаток7
a:=21 //7*3=21
Ввывод:21
А)"2"=111001111
"8"=717
"16"=1CF
б)"2"=10010111001
"8"=2271
"16"=4B9
в)"2"=101101010
"8"=552
"16"=16А
г)"2"=111101010101
"8"=7525
"16"=F55
д)"2"=10110001011011
"8"=26133
"16"=2C5B
День, месяц, год
14 ноября 1998 года