Размещено 5 лет назад по предмету
Информатика
от denst2000
Объясните строчку ( c:=10*c+a mod 10;
a := a div 10;)
program pr36;
function qwer(var a, b: integer): integer;
var c: integer;
begin
c:=0;
while a > 0 do begin
c:=10*c+a mod 10;
a := a div 10;
end;
qwer:= c;
end;
var a, b: integer;
begin
writeln('Vvedite chislo');
Readln(a);
Writeln(qwer(a, b));
end.