Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

b:=0;
while a<>0 do
begin
a:=a div 10;
h:=b*10+a mod 10;
end;
write(h);

если а=13305?

ответ:1330

Объяснение: Ну смотри B присваеваем ноль;

Делаем цикл если А не равно 0 тогда делим a на заметить тип int;

далее h равно b * 10 "(0 на 10 равно 0)" + a делим без остатка на 10;

конец;

вывод h