3. какую решает фрагмент программы. все переменные имеют целый тип, n> 0

program t1;

var

k, n, p: integer;

begin

k : = 0; n : = p;

while n < > 0 do

begin

k : = k * 10 + n mod 10;

n : = n div 10;

end;

if p = k then writeln('да') else writeln('нет');

end.

Fulin666    1   11.07.2019 10:19    0