Объясните строчку (c:=10c+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:=10c+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.

Question

Информатика

Фрося

1 ноября, 03:20

Объясните строчку (c:=10c+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:=10c+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.

+1

Ответы (1)

Знаете ответ на вопрос?

Еняша · Answer 1

c:=10*c+a mod 10;

Ответ: переменной "с" целочисленного типа присваивается значение 10 умножить на ту же переменной "с" целочисленного типа (без учета текущих расчетов) плюс остаток от деления переменной "а" целочисленного типа на 10 при помощи операции mod.

a : = a div 10;

Ответ: переменной "a" целочисленного типа присваивается целая часть от деления переменной "а" до текущего шага на цифру 10.