Размещено 3 года назад по предмету
Информатика
от ivanlambatov46
Обьясните как работает программа, подробно пожалуйста.
program print;
var
j: integer;
t: string [5];
begin
t := '32845';
j := 1;
while t[j] < '8' do
begin
t[j] := succ( t[j] );
j := j + 1;
end;
writeln(t)
end.