Что будет напечатано программой? type stringa = array [1..5] of char; var i: integer; t: stringa; procedure P(var s: stringa); begin i:=1; while s[i]<'9' do begin s[i]:=succ(s[i]); i:=i+1 end end; begin i:=1; t:='12945'; P(t);

1. Главная
2. Магазин
3. Тест
4. Основы программирования
5. Что будет напечатано программой? type stringa = array [1..5] of char; var i: integer; t: stringa; procedure P(var s: stringa); begin i:=1; while s[i]<'9' do begin s[i]:=succ(s[i]); i:=i+1 end end; begin i:=1; t:='12945'; P(t);