В теме информатика никто не помогает помогите, программа не работает, нужно разложить 4-хзначное число на цифры var a, a1, a2, a3, a4:integer; begin write ('vv ch') ; read (a) ; a1: = a/1000; a2: = a/100 mod 10; a3: = a/10 mod 10; a4: = a mod 10;
Ответы (1)